Load libraries

library(Seurat)
library(princurve)
library(Revelio)
library(monocle)
library(gprofiler2)
library(seriation)
library(Matrix)
library(dplyr)
library(RColorBrewer)
library(ggplot2)
library(ggExtra)
library(cowplot)
library(wesanderson)

#Set ggplot theme as classic
theme_set(theme_classic())

Load the full dataset

WT <- readRDS("../QC.filtered.clustered.cells.RDS")
KO <- readRDS("./GmncKO.cells.RDS") %>% subset(idents = c(6:9), invert = T)
DimPlot(object = KO,
        group.by = "Cell.ident",
        reduction = "spring",
        cols = c( "#4cabdc", "#7293c8", "#3ca73f",
                  "#31b6bd","#a9961b", "#ebcb2e", "#9ec22f", 
                  "#e7823a"),
        pt.size = 0.5)  & NoAxes()

Expression of MCC and stress response in WT and KO

MCC.genes <- list(c("Trp73", "Gmnc", "Foxj1", "Myb", "Ccno", "Ccdc67", "Deup1","Mcidas",
                    "E2f4", "E2f5", "Ahr", "Trrap", "Cdc20b", "Ccdc78", "Rfx2",
                    "Rfx3", "Foxn4", "Fank1", "Jazf1", "Ccna1", "Nek10", "Plk4",
                    "Cep63", "Cep152", "Sass6", "Pcnt", "Pcm1", "Cetn2", "Tfdp1"))

KO <- AddModuleScore(KO,
                     features = MCC.genes,
                     name = "MCC_score")

WT <- AddModuleScore(WT,
                     features = MCC.genes,
                     name = "MCC_score")
WT.CR.goterm <- read.table("../CajalRetzius_trajectory/CR_GO_res-by-waves.csv", sep = ";", header = T)

DNA_damage_GOterm <- WT.CR.goterm %>% filter(term_id %in% c("GO:0008630", "GO:0030330", "GO:0031571",
                                                            "GO:0006974", "GO:0006977","GO:0033554",
                                                            "GO:0044773", "GO:0042771", "GO:0042770",
                                                            "GO:2001021", "GO:1902229")
                                             )

DNA_damage_genes <- DNA_damage_GOterm %>%
                    filter(query %in% c("Clust.2", "Clust.3", "Clust.4")) %>%
                    filter(term_id == "GO:0033554") %>%
                    pull(intersection) %>% strsplit("\\,") %>% unlist() %>% unique()

KO <- AddModuleScore(KO,
                     features = list(DNA_damage_genes),
                     name = "cellular_response_to_stress_score")

WT <- AddModuleScore(WT,
                     features = list(DNA_damage_genes),
                     name = "cellular_response_to_stress_score")
gradient <- rev(brewer.pal(8,"RdYlBu"))
lim <-  c(-0.5,0.8)

p1 <- ggplot(KO@meta.data, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=MCC_score1), size=1, shape=16) + 
  scale_color_gradientn(colours=gradient,
                        limits = lim,
                        name='Multiciliation score')


p2 <- ggplot(WT@meta.data, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=MCC_score1), size=1, shape=16) + 
  scale_color_gradientn(colours=gradient,
                        limits = lim,
                        name='Multiciliation score')

p3 <- ggplot(KO@meta.data, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=cellular_response_to_stress_score1), size=1, shape=16) + 
  scale_color_gradientn(colours=gradient,
                        limits = lim,
                        name='Stress response score')

p4 <- ggplot(WT@meta.data, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=cellular_response_to_stress_score1), size=1, shape=16) + 
  scale_color_gradientn(colours= gradient,
                        limits = lim,
                        name='Stress response score')


MCC.scores.plot <- p2 + p1 
Stress.score.plot <- p4 + p3

for (i in 1:2){
  MCC.scores.plot[[i]]$data <- MCC.scores.plot[[i]]$data[order(MCC.scores.plot[[i]]$data$MCC_score1),]
}

for (i in 1:2){
  Stress.score.plot[[i]]$data <- Stress.score.plot[[i]]$data[order(Stress.score.plot[[i]]$data$cellular_response_to_stress_score1),]
}

MCC.scores.plot / Stress.score.plot

# Compute differentiation states scores

AP

APgenes <- c("Rgcc", "Sparc", "Hes5","Hes1", "Slc1a3",
             "Ddah1", "Ldha", "Hmga2","Sfrp1", "Id4",
             "Creb5", "Ptn", "Lpar1", "Rcn1","Zfp36l1",
             "Sox9", "Sox2", "Nr2e1", "Ttyh1", "Trip6")

KO <- AddModuleScore(KO,
                     features = list(APgenes),
                     name = "AP_signature")

BP

BPgenes <- c("Eomes", "Igsf8", "Insm1", "Elavl2", "Elavl4",
             "Hes6","Gadd45g", "Neurog2", "Btg2", "Neurog1")

KO <- AddModuleScore(KO,
                     features = list(BPgenes),
                     name = "BP_signature")

EN

ENgenes <- c("Mfap4", "Nhlh2", "Nhlh1", "Ppp1r14a", "Nav1",
             "Neurod1", "Sorl1", "Svip", "Cxcl12", "Tenm4",
             "Dll3", "Rgmb", "Cntn2", "Vat1")

KO <- AddModuleScore(KO,
                     features = list(ENgenes),
                     name = "EN_signature")

LN

LNgenes <- c("Snhg11", "Pcsk1n", "Mapt", "Ina", "Stmn4",
             "Gap43", "Tubb2a", "Ly6h","Ptprd", "Mef2c")

KO <- AddModuleScore(KO,
                     features = list(LNgenes),
                     name = "LN_signature")
FeaturePlot(object = KO,
            features = c("AP_signature1", "BP_signature1",
                              "EN_signature1", "LN_signature1"),
            pt.size = 0.75,
            cols = rev(brewer.pal(10,"Spectral")),
            reduction = "spring",
            order = T) & NoAxes() & NoLegend()

Fit pseudotime on CR and CP differentiating neurons

Group cells in Pallial or CR lineage

KO$Lineage <- sapply(KO$Cell.ident,
                              FUN = function(x) {
                                if (x %in% c("Neuron_prob.2", "Hem")) {
                                  x = "Cajal-Retzius_neurons"
                                } else if (x %in% c("Neuron_prob.3", "Medial_pallium")) {
                                  x = "Pallial_neurons"
                                } else {
                                  x = "other"
                                  }
                              })
DimPlot(KO,
        reduction = "spring",
        group.by = "Lineage",
        pt.size = 1,
        cols =  c("#cc391b","#969696","#026c9a")
        ) + NoAxes()

Fit principale curve on the two lineages

Neurons.data <-  subset(KO,  subset = Lineage %in% c("Cajal-Retzius_neurons", "Pallial_neurons") & Cell.ident %in% c("Neuron_prob.2", "Neuron_prob.3"))

DimPlot(Neurons.data ,
        reduction = "spring",
        group.by = "Lineage",
        pt.size = 1,
        cols =  c("#cc391b","#026c9a")
        ) + NoAxes()

fit <- principal_curve(as.matrix(Neurons.data@meta.data[,c("Spring_1", "Spring_2")]),
                       smoother='lowess',
                       trace=TRUE,
                       f = 1,
                       stretch=0)
## Starting curve---distance^2: 76242448164
## Iteration 1---distance^2: 48308567
## Iteration 2---distance^2: 49237931
## Iteration 3---distance^2: 50119026
## Iteration 4---distance^2: 51105768
## Iteration 5---distance^2: 51819999
## Iteration 6---distance^2: 52369574
## Iteration 7---distance^2: 52732675
## Iteration 8---distance^2: 52936995
## Iteration 9---distance^2: 53060989
## Iteration 10---distance^2: 53117718
#Pseudotime score
PseudotimeScore <- fit$lambda/max(fit$lambda)

if (cor(PseudotimeScore, Neurons.data@assays$SCT@data['Hmga2', ]) > 0) {
  Neurons.data$PseudotimeScore <- -(PseudotimeScore - max(PseudotimeScore))
}

cols <- brewer.pal(n =11, name = "Spectral")

ggplot(Neurons.data@meta.data, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=PseudotimeScore), size=2, shape=16) + 
  scale_color_gradientn(colours=rev(cols), name='Pseudotime score')

Plot pan-neuronal genes along this axis

Neurons.data <- NormalizeData(Neurons.data, normalization.method = "LogNormalize", scale.factor = 10000, assay = "RNA")
Trajectories.neurons <- Neurons.data@meta.data %>% select(Barcodes, Spring_1, Spring_2,
                                                          AP_signature1, BP_signature1, EN_signature1, LN_signature1,
                                                          Lineage, PseudotimeScore)

# Neurog2
p1 <- FeaturePlot(object = Neurons.data,
            features = c("Neurog2"),
            pt.size = 0.5,
            cols = c("grey90", brewer.pal(9,"YlGnBu")),
            reduction = "spring",
            order = T) & NoAxes()

Trajectories.neurons$Neurog2 <- Neurons.data@assays$RNA@data["Neurog2", Trajectories.neurons$Barcodes]

p2 <- ggplot(Trajectories.neurons, aes(x= PseudotimeScore, y= Neurog2)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

# Tbr1 
p3 <- FeaturePlot(object = Neurons.data ,
            features = c("Tbr1"),
            pt.size = 0.5,
            cols = c("grey90", brewer.pal(9,"YlGnBu")),
            reduction = "spring",
            order = T) & NoAxes()
Trajectories.neurons$Tbr1 <- Neurons.data@assays$RNA@data["Tbr1", Trajectories.neurons$Barcodes]

p4 <- ggplot(Trajectories.neurons, aes(x= PseudotimeScore, y= Tbr1)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

# Mapt 
p5 <- FeaturePlot(object = Neurons.data ,
            features = c("Mapt"),
            pt.size = 0.5,
            cols = c("grey90", brewer.pal(9,"YlGnBu")),
            reduction = "spring",
            order = T) & NoAxes()

Trajectories.neurons$Mapt <- Neurons.data@assays$RNA@data["Mapt", Trajectories.neurons$Barcodes]

p6 <- ggplot(Trajectories.neurons, aes(x= PseudotimeScore, y= Mapt)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

p1 + p2 + p3 + p4 + p5 + p6 + patchwork::plot_layout(ncol = 2)

## Shift pseudotime score

score <- sapply(Trajectories.neurons$PseudotimeScore,
                FUN = function(x) if (x <= 0.15) {x= 0.15} else { x=x })

Trajectories.neurons$PseudotimeScore.shifted <- (score - min(score)) / (max(score) - min(score))
# Neurog2
p1 <- FeaturePlot(object = Neurons.data ,
            features = c("Neurog2"),
            pt.size = 0.5,
            cols = c("grey90", brewer.pal(9,"YlGnBu")),
            reduction = "spring",
            order = T) & NoAxes()

p2 <- ggplot(Trajectories.neurons, aes(x= PseudotimeScore.shifted, y= Neurog2)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

# Tbr1 
p3 <- FeaturePlot(object = Neurons.data ,
            features = c("Tbr1"),
            pt.size = 0.5,
            cols = c("grey90", brewer.pal(9,"YlGnBu")),
            reduction = "spring",
            order = T) & NoAxes()

p4 <- ggplot(Trajectories.neurons, aes(x= PseudotimeScore.shifted, y= Tbr1)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

# Mapt 
p5 <- FeaturePlot(object = Neurons.data ,
            features = c("Mapt"),
            pt.size = 0.5,
            cols = c("grey90", brewer.pal(9,"YlGnBu")),
            reduction = "spring",
            order = T) & NoAxes()

p6 <- ggplot(Trajectories.neurons, aes(x= PseudotimeScore.shifted, y= Mapt)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

p1 + p2 + p3 + p4 + p5 + p6 + patchwork::plot_layout(ncol = 2)

Trajectories.neurons$nUMI <- Neurons.data$nCount_RNA

ggplot(Trajectories.neurons, aes(x= PseudotimeScore.shifted, y= nUMI/10000)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

Fit cell cycle trajectory on progenitors

To balance the number of progenitors in both domain we will only work with Hem and Medial_pallium annotated cells. Since we are using pallial cell to contrast CR specific trajectory we think this approximation will not significantly affect our analysis.

Progenitors.data <-  subset(KO,  subset = Lineage %in% c("Cajal-Retzius_neurons", "Pallial_neurons") & Cell.ident %in% c("Hem", "Medial_pallium"))

DimPlot(Progenitors.data,
        reduction = "spring",
        group.by = "Cell.ident",
        pt.size = 1,
        cols =  c("#cc391b","#026c9a")
        ) + NoAxes()

table(Progenitors.data$Cell.ident)
## 
##            Hem Medial_pallium 
##           1114           2983
rm(list = ls()[!ls() %in% c("Trajectories.neurons", "Progenitors.data")])
gc()
##             used  (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells   3460150 184.8    6183287  330.3    6183287  330.3
## Vcells 102114313 779.1  821731051 6269.4 1024259792 7814.5

Prepare data for Revelio

rawCounts <- as.matrix(Progenitors.data[["RNA"]]@counts)

# Filter genes expressed by less than 10 cells
num.cells <- Matrix::rowSums(rawCounts > 0)
genes.use <- names(x = num.cells[which(x = num.cells >= 10)])
rawCounts <- rawCounts[genes.use, ]

Run Revelio

CCgenes <- read.table("../ChoroidPlexus_trajectory/CCgenes.csv", sep = ";", header = T)

We can now follow the tutorial form the package github page

myData <- createRevelioObject(rawData = rawCounts,
                              cyclicGenes = CCgenes,
                              lowernGeneCutoff = 0,
                              uppernUMICutoff = Inf,
                              ccPhaseAssignBasedOnIndividualBatches = F)
## 2022-05-03 17:19:15: reading data: 6.01secs
rm("rawCounts")
gc()
##             used   (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells   3466368  185.2    6183287  330.3    6183287  330.3
## Vcells 165274580 1261.0  657384841 5015.5 1024259792 7814.5

The getCellCyclePhaseAssignInformation filter “outlier” cells for cell cycle phase assignation. We modified the function to keep all cells as we observed this does not affect the global cell cycle fitting procedure

source("../Functions/functions_InitializationCCPhaseAssignFiltering.R")

myData <- getCellCyclePhaseAssign_allcells(myData)
## 2022-05-03 17:19:22: assigning cell cycle phases: 33.67secs
myData <- getPCAData(dataList = myData)
## 2022-05-03 17:19:55: calculating PCA: 26.65secs
myData <- getOptimalRotation(dataList = myData)
## 2022-05-03 17:20:22: calculating optimal rotation: 14.66secs

Graphical assesment of cell cycle fitting

CellCycledata <- cbind(as.data.frame(t(myData@transformedData$dc$data[1:2,])),
                       nUMI= myData@cellInfo$nUMI,
                       Revelio.phase = factor(myData@cellInfo$ccPhase, levels = c("G1.S", "S", "G2", "G2.M", "M.G1")),
                       Revelio.cc= myData@cellInfo$ccPercentageUniformlySpaced,
                       Domain= Progenitors.data$Cell.ident)
p1 <- ggplot(CellCycledata, aes(DC1, DC2)) +
        geom_point(aes(color = Revelio.phase), size= 0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5]))

p2 <- ggplot(CellCycledata, aes(DC1, DC2)) +
        geom_point(aes(color = Domain), size = 0.5) +
        scale_color_manual(values= c("#cc391b","#026c9a"))

p3 <- ggplot(CellCycledata, aes(DC1, DC2)) +
        geom_point(aes(color=Revelio.cc), size=0.5, shape=16) + 
        scale_color_gradientn(colours=rev(colorRampPalette(brewer.pal(n =11, name = "Spectral"))(100)),
                              name='Revelio_cc')

p4 <- ggplot(CellCycledata, aes(x= Revelio.cc, y= nUMI/10000)) +
        geom_point(aes(color= Revelio.phase), size=0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) +
        geom_smooth(method="loess", n= 50, fill="grey") +
        ylim(0,NA)

(p1 + p2) /(p3 + p4)

Progenitors.data$Revelio.phase <- CellCycledata$Revelio.phase
Progenitors.data$Revelio.cc <- CellCycledata$Revelio.cc

p1 <- FeaturePlot(object = Progenitors.data,
                  features = "Revelio.cc",
                  pt.size = 1,
                  cols = rev(brewer.pal(10,"Spectral")),
                  reduction = "spring",
                  order = T) & NoAxes()

p2 <- DimPlot(object = Progenitors.data,
              group.by = "Revelio.phase",
              pt.size = 1,
              reduction = "spring",
              cols =  c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) & NoAxes()

p1 / p2

Transfert learn cell cycle axis

Progenitors <- Progenitors.data@meta.data %>% select(Barcodes, Spring_1, Spring_2,
                                                     AP_signature1, BP_signature1, EN_signature1, LN_signature1,
                                                     Lineage)

Progenitors$PseudotimeScore <- CellCycledata$Revelio.cc
Progenitors$nUMI <- Progenitors.data$nCount_RNA

Combine Progenitors and differentiating neurons data

# Start with neurons data
Trajectories.all <- Trajectories.neurons %>% select(Barcodes, nUMI, Spring_1, Spring_2, AP_signature1, BP_signature1, EN_signature1, LN_signature1, Lineage)

Trajectories.all$Pseudotime <- Trajectories.neurons$PseudotimeScore.shifted + 0.5
Trajectories.all$Phase <- NA
# Add progenitors data
Trajectories.progenitors <- Progenitors %>%
                              select(Barcodes, nUMI, Spring_1, Spring_2, AP_signature1, BP_signature1, EN_signature1, LN_signature1, Lineage) %>% 
                              mutate(Pseudotime= Progenitors.data$Revelio.cc/2,
                                     Phase = Progenitors.data$Revelio.phase)
Trajectories.all <- rbind(Trajectories.all, Trajectories.progenitors)

Trajectories.all$Phase <- factor(Trajectories.all$Phase, levels = c("G1.S", "S", "G2", "G2.M", "M.G1"))
p1 <- ggplot(Trajectories.all, aes(Spring_1, Spring_2)) +
        geom_point(aes(color=Pseudotime), size=0.5) + 
        scale_color_gradientn(colours=rev(brewer.pal(n =11, name = "Spectral")), name='Pseudotime score')

p2 <- ggplot(Trajectories.all, aes(Spring_1, Spring_2)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a"))

p1 + p2

p1 <- ggplot(Trajectories.all, aes(x= Pseudotime, y= nUMI/10000)) +
        geom_point(aes(color= Phase), size=0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) +
        geom_smooth(method="loess", n= 50, fill="grey") +
        ylim(0,NA)

p2 <- ggplot(Trajectories.all, aes(x= Pseudotime, y= nUMI/10000)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(aes(color= Lineage), method="loess", n= 50, fill="grey") +
        ylim(0,NA)

p1 / p2

p1 <- ggplot(Trajectories.all, aes(x= Pseudotime, y= AP_signature1)) +
  geom_point(aes(color= Lineage), size=0.5) +
  scale_color_manual(values= c("#cc391b", "#026c9a")) +
  geom_smooth(aes(color= Lineage), method="loess", n= 50, fill="grey")


p2 <- ggplot(Trajectories.all, aes(x= Pseudotime, y= BP_signature1)) +
  geom_point(aes(color= Lineage), size=0.5) +
  scale_color_manual(values= c("#cc391b", "#026c9a")) +
  geom_smooth(aes(color= Lineage), method="loess", n= 50, fill="grey")

p3 <- ggplot(Trajectories.all, aes(x= Pseudotime, y= EN_signature1)) +
  geom_point(aes(color= Lineage), size=0.5) +
  scale_color_manual(values= c("#cc391b", "#026c9a")) +
  geom_smooth(aes(color= Lineage), method="loess", n= 50, fill="grey")

p4 <- ggplot(Trajectories.all, aes(x= Pseudotime, y= LN_signature1)) +
  geom_point(aes(color= Lineage), size=0.5) +
  scale_color_manual(values= c("#cc391b", "#026c9a")) +
  geom_smooth(aes(color= Lineage), method="loess", n= 50, fill="grey")


p1 / p2 / p3 / p4

Subset the full Seurat object

KO <- readRDS("./GmncKO.cells.RDS") %>% subset(idents = c(6:9), invert = T)
Neuro.trajectories <- CreateSeuratObject(counts = KO@assays$RNA@data[, Trajectories.all$Barcodes],
                                         meta.data = Trajectories.all)

spring <- as.matrix(Neuro.trajectories@meta.data %>% select("Spring_1", "Spring_2"))
  
Neuro.trajectories[["spring"]] <- CreateDimReducObject(embeddings = spring, key = "Spring_", assay = DefaultAssay(Neuro.trajectories))
p1 <- FeaturePlot(object = Neuro.trajectories,
            features = "Pseudotime",
            pt.size = 0.5,
            cols = rev(colorRampPalette(brewer.pal(n =11, name = "Spectral"))(100)),
            reduction = "spring",
            order = T) & NoAxes()

p2 <- DimPlot(object = Neuro.trajectories,
        group.by = "Lineage",
        pt.size = 0.5,
        reduction = "spring",
        cols =  c("#cc391b", "#026c9a")) & NoAxes()


p3 <- DimPlot(object = Neuro.trajectories,
        group.by = "Phase",
        pt.size = 0.5,
        reduction = "spring",
        cols =  c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) & NoAxes()

p1 + p2 + p3

rm(list = ls()[!ls() %in% c("Neuro.trajectories")])
gc()
##            used  (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells  3508900 187.4    6183287  330.3    6183287  330.3
## Vcells 35225206 268.8  757448136 5778.9 1024259792 7814.5

Normalization

Neuro.trajectories<- NormalizeData(Neuro.trajectories, normalization.method = "LogNormalize", scale.factor = 10000, assay = "RNA")
Neuro.trajectories <- FindVariableFeatures(Neuro.trajectories, selection.method = "disp", nfeatures = 3000, assay = "RNA")

Plot some genes along pseudotime

source("../Functions/functions_GeneTrends.R")

Plot.Genes.trend(Seurat.data= Neuro.trajectories,
                 group.by = "Lineage",
                 genes= c("Gas1","Sox2",
                          "Neurog2", "Btg2",
                          "Tbr1", "Mapt",
                          "Trp73", "Foxg1"))

Plot.Genes.trend(Seurat.data= Neuro.trajectories,
                 group.by = "Lineage",
                 genes= c("Gmnc", "Mcidas",
                          "Foxj1", "Trp73",
                          "Lhx1", "Cdkn1a"))

Plot.Genes.trend(Seurat.data= Neuro.trajectories,
                 group.by = "Lineage",
                 genes= c("Mki67", "Top2a",
                          "H2afx", "Cdkn1c"))

Use monocle2 to model gene expression along cycling axis

Initialize a monocle object

# Transfer metadata
meta.data <- data.frame(Barcode= Neuro.trajectories$Barcodes,
                        Lineage= Neuro.trajectories$Lineage,
                        Pseudotime= Neuro.trajectories$Pseudotime,
                        Phase= Neuro.trajectories$Phase)

Annot.data  <- new('AnnotatedDataFrame', data = meta.data)

# Transfer counts data
var.genes <- Neuro.trajectories[["RNA"]]@var.features
count.data = data.frame(gene_short_name = rownames(Neuro.trajectories[["RNA"]]@data[var.genes,]),
                        row.names = rownames(Neuro.trajectories[["RNA"]]@data[var.genes,]))

feature.data <- new('AnnotatedDataFrame', data = count.data)

# Create the CellDataSet object including variable genes only
gbm_cds <- newCellDataSet(Neuro.trajectories[["RNA"]]@counts[var.genes,],
                          phenoData = Annot.data,
                          featureData = feature.data,
                          lowerDetectionLimit = 0,
                          expressionFamily = negbinomial())
gbm_cds <- estimateSizeFactors(gbm_cds)
gbm_cds <- estimateDispersions(gbm_cds)
gbm_cds <- detectGenes(gbm_cds, min_expr = 0.1)
rm(list = ls()[!ls() %in% c("Neuro.trajectories", "gbm_cds", "Gene.Trend", "Plot.Genes.trend")])
gc()
##            used  (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells  3578420 191.2    6183287  330.3    6183287  330.3
## Vcells 71128071 542.7  605958509 4623.1 1024259792 7814.5

Find Pan-neuronal genes

# Split pallial and subpallial cells for gene expression fitting
#Pallial cells
Pallialcells <- Neuro.trajectories@meta.data %>%
                filter(Lineage == "Pallial_neurons") %>%
                pull(Barcodes)

# Cajal-Retzius cells
CRcells <- Neuro.trajectories@meta.data %>%
                   filter(Lineage == "Cajal-Retzius_neurons") %>%
                   pull(Barcodes)
# We filter-out genes detected in less than 200 or 200 cells along Pallial or CR lineages
num.cells <- Matrix::rowSums(Neuro.trajectories@assays$RNA@counts[,Pallialcells] > 0)
Pallial.expressed <- names(x = num.cells[which(x = num.cells >= 200)])

num.cells <- Matrix::rowSums(Neuro.trajectories@assays$RNA@counts[,CRcells] > 0)
CR.expressed <- names(x = num.cells[which(x = num.cells >= 200)])

Input.genes <- rownames(gbm_cds)[rownames(gbm_cds) %in% intersect(Pallial.expressed, CR.expressed)]
Pallial.genes <- differentialGeneTest(gbm_cds[Input.genes, Pallialcells], 
                                                 fullModelFormulaStr = "~sm.ns(Pseudotime, df = 3)", 
                                                 reducedModelFormulaStr = "~1", 
                                                 cores = parallel::detectCores() - 2)

#Filter based on FDR
Pallial.genes.filtered <- Pallial.genes  %>% filter(qval < 1e-3)
CRcells.genes <- differentialGeneTest(gbm_cds[Input.genes, CRcells], 
                                                 fullModelFormulaStr = "~sm.ns(Pseudotime, df = 3)", 
                                                 reducedModelFormulaStr = "~1", 
                                                 cores = parallel::detectCores() - 2)

#Filter based on FDR
CRcells.genes.filtered <- CRcells.genes  %>% filter(qval < 1e-3)
Common.genes <- intersect(Pallial.genes.filtered$gene_short_name, CRcells.genes.filtered$gene_short_name)
# Smooth genes expression along the two trajectories
nPoints <- 300

new_data = list()
for (Lineage in unique(pData(gbm_cds)$Lineage)){
  new_data[[length(new_data) + 1]] = data.frame(Pseudotime = seq(min(pData(gbm_cds)$Pseudotime), max(pData(gbm_cds)$Pseudotime), length.out = nPoints), Lineage=Lineage)
}

new_data = do.call(rbind, new_data)

# Smooth gene expression
curve_matrix <- genSmoothCurves(gbm_cds[as.character(Common.genes),],
                                trend_formula = "~sm.ns(Pseudotime, df = 3)*Lineage",
                                relative_expr = TRUE,
                                new_data = new_data,
                                cores= parallel::detectCores() - 2)
# Extract genes with person's cor > 0.6 between the 2 trajectories

Pallial.smoothed <- scale(t(curve_matrix[,c(1:300)]))  #Pallial points
CR.smoothed <- scale(t(curve_matrix[,c(301:600)])) #CR points

mat <- cor(Pallial.smoothed, CR.smoothed, method = "pearson")

Gene.Cor <- diag(mat)
hist(Gene.Cor, breaks = 100)
abline(v=0.8,col=c("blue"))

PanNeuro.genes <- names(Gene.Cor[Gene.Cor > 0.8])
# Order rows using seriation
dst <- as.dist((1-cor(scale(t(curve_matrix[PanNeuro.genes,c(600:301)])), method = "pearson")))
row.ser <- seriate(dst, method ="MDS_angle") #MDS_angle
gene.order <- PanNeuro.genes[get_order(row.ser)]

anno.colors <- list(lineage = c(Pallial="#026c9a",CR="#cc391b"))


pheatmap::pheatmap(curve_matrix[rev(gene.order),
                                c(1:300, 301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_col = data.frame(lineage = rep(c("Pallial","CR"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = T,
                   fontsize_row = 2,
                   color =  viridis::viridis(10),
                   breaks = seq(-2.5,2.5, length.out = 10),
                   main = "")

rm(list = ls()[!ls() %in% c("Neuro.trajectories", "gbm_cds", "Gene.Trend", "Plot.Genes.trend")])
gc()
##            used  (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells  3628460 193.8    7985455  426.5    7985455  426.5
## Vcells 71244938 543.6  387813447 2958.8 1024259792 7814.5

Test each gene trend over pseudotime score

Find genes DE along pseudomaturation axis

pseudo.maturation.diff <- differentialGeneTest(gbm_cds[fData(gbm_cds)$num_cells_expressed > 80,], 
                                                 fullModelFormulaStr = "~sm.ns(Pseudotime, df = 3)*Lineage", 
                                                 reducedModelFormulaStr = "~sm.ns(Pseudotime, df = 3)", 
                                                 cores = parallel::detectCores() - 2)
# Filter genes based on FDR
pseudo.maturation.diff.filtered <- pseudo.maturation.diff %>% filter(qval < 1e-40)

Direction of the DEG by calculating the area between curves (ABC)

Smooth commun genes along the two trajectories

# Create a new pseudo-DV vector of 300 points
nPoints <- 300

new_data = list()
for (Lineage in unique(pData(gbm_cds)$Lineage)){
  new_data[[length(new_data) + 1]] = data.frame(Pseudotime = seq(min(pData(gbm_cds)$Pseudotime), max(pData(gbm_cds)$Pseudotime), length.out = nPoints), Lineage=Lineage)
}

new_data = do.call(rbind, new_data)

# Smooth gene expression
Diff.curve_matrix <- genSmoothCurves(gbm_cds[as.character(pseudo.maturation.diff.filtered$gene_short_name),],
                                      trend_formula = "~sm.ns(Pseudotime, df = 3)*Lineage",
                                      relative_expr = TRUE,
                                      new_data = new_data,
                                      cores= parallel::detectCores() - 2)

Compute the ABC for each gene

# Extract matrix containing smoothed curves for each lineages
Pal_curve_matrix <- Diff.curve_matrix[, 1:nPoints] #Pallial points
CR_curve_matrix <- Diff.curve_matrix[, (nPoints + 1):(2 * nPoints)] #CR points

# Direction of the comparison : postive ABCs <=> Upregulated in CR lineage
ABCs_res <- CR_curve_matrix - Pal_curve_matrix

# Average logFC between the 2 curves
ILR_res <- log2(CR_curve_matrix/ (Pal_curve_matrix + 0.1)) 
  
ABCs_res <- apply(ABCs_res, 1, function(x, nPoints) {
                  avg_delta_x <- (x[1:(nPoints - 1)] + x[2:(nPoints)])/2
                  step <- (100/(nPoints - 1))
                  res <- round(sum(avg_delta_x * step), 3)
                  return(res)},
                  nPoints = nPoints) # Compute the area below the curve
  
ABCs_res <- cbind(ABCs_res, ILR_res[,ncol(ILR_res)])
colnames(ABCs_res)<- c("ABCs", "Endpoint_ILR")

# Import ABC values into the DE test results table
pseudo.maturation.diff.filtered <- cbind(pseudo.maturation.diff.filtered[,1:4],
                                         ABCs_res,
                                         pseudo.maturation.diff.filtered[,5:6])

Cajal-Retzius cells specific trajectory analysis

# Extract Cajal-Retzius expressed genes
CR.res <- as.data.frame(pseudo.maturation.diff.filtered[pseudo.maturation.diff.filtered$ABCs > 0,])
CR.genes <- row.names(CR.res)

CR_curve_matrix <- CR_curve_matrix[CR.genes, ]

Gene expression profiles along the trajectory

## Cluster gene by expression profiles
Pseudotime.genes.clusters <- cluster::pam(as.dist((1 - cor(Matrix::t(CR_curve_matrix),method = "pearson"))), k= 5)

CR.Gene.dynamique <- data.frame(Gene= names(Pseudotime.genes.clusters$clustering),
                                 Waves= Pseudotime.genes.clusters$clustering,
                                 Gene.Clusters = Pseudotime.genes.clusters$clustering,
                                 q.val = CR.res$qval,
                                 ABCs= CR.res$ABCs
                                 ) %>% arrange(Gene.Clusters)

row.names(CR.Gene.dynamique) <- CR.Gene.dynamique$Gene
CR.Gene.dynamique$Gene.Clusters <- paste0("Clust.", CR.Gene.dynamique$Gene.Clusters)
# Order the rows using seriation
dst <- as.dist((1-cor(scale(t(CR_curve_matrix)), method = "pearson")))
row.ser <- seriation::seriate(dst, method ="R2E") #"R2E" #TSP #"GW" "GW_ward"
gene.order <- rownames(CR_curve_matrix[get_order(row.ser),])

# Set annotation colors
pal <- wes_palette("Darjeeling1")
anno.colors <- list(lineage = c(Pallial_neurons="#026c9a", Cajal_Retzius="#cc391b"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))


pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#Pal 
                                  301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("Pallial_neurons","Cajal_Retzius"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

We manually correct the reordering so genes are aligned from top left to bottom rigth

pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#Pal 
                                  301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("Pallial_neurons","Cajal_Retzius"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

anno.colors <- list(Cell.state = c(Cycling_RG="#046c9a", Differentiating_cells="#ebcb2e"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))

col.anno <- data.frame(Cell.state = rep(c("Cycling_RG","Differentiating_cells"), c(100,200)))
rownames(col.anno) <- 301:600

pheatmap::pheatmap(CR_curve_matrix[gene.order,],
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = col.anno,
                   annotation_colors = anno.colors,
                   gaps_col = 100,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

diff.state <- Neuro.trajectories@meta.data %>%
              filter(Lineage ==  "Cajal-Retzius_neurons") %>%
              select("AP_signature1", "BP_signature1", "EN_signature1", "LN_signature1", "Pseudotime")

AP.loess <- loess(AP_signature1 ~ Pseudotime, diff.state)
AP.smooth <- predict(AP.loess,
                     seq(0.01,1.5, length.out= 300))

BP.loess <- loess(BP_signature1 ~ Pseudotime, diff.state)
BP.smooth <- predict(BP.loess,
                     seq(0.01,1.5, length.out= 300))

EN.loess <- loess(EN_signature1 ~ Pseudotime, diff.state)
EN.smooth <- predict(EN.loess,
                     seq(0.01,1.5, length.out= 300))

LN.loess <- loess(LN_signature1 ~ Pseudotime, diff.state)
LN.smooth <- predict(LN.loess,
                     seq(0.01,1.5, length.out= 300))

Smoothed.states <- cbind(AP.smooth, BP.smooth, EN.smooth, LN.smooth)
heatmap.states <- pheatmap::pheatmap(as.data.frame(t(Smoothed.states)),
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   gaps_col = 100,
                   gaps_row = c(1,2,3),
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  rev(colorRampPalette(brewer.pal(n= 8, name = "RdBu"))(100)),
                   breaks = seq(-1,1, length.out = 100),
                   main = "")
heatmap.gene <- pheatmap::pheatmap(CR_curve_matrix[gene.order,],
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   gaps_col = 100,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")
cowplot::plot_grid(heatmap.states$gtable, heatmap.gene$gtable,
                   ncol = 1,
                   align = "v",
                   rel_heights = c(1,3),
                   greedy = T)

Gene cluster trend

source("../Functions/functions_GeneClusterTrend.R")

Plot.clust.trends(Neuro.trajectories,
                   Lineage = "Cajal-Retzius_neurons",
                   Which.cluster = 1:5,
                   clust.list = Pseudotime.genes.clusters$clustering,
                   Smooth.method = "gam")

GO term enrichment in gene clusters using gprofiler2

CR.gostres <- gost(query = list("Clust.1" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.1") %>% pull(Gene) %>% as.character(),
                             "Clust.2" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.2") %>% pull(Gene) %>% as.character(),
                             "Clust.3" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.3") %>% pull(Gene) %>% as.character(),
                             "Clust.4" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.4") %>% pull(Gene) %>% as.character(),
                             "Clust.5" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.5") %>% pull(Gene) %>% as.character()),
                organism = "mmusculus", ordered_query = F, 
                multi_query = F, significant = T, exclude_iea = T, 
                measure_underrepresentation = F, evcodes = T, 
                user_threshold = 0.05, correction_method = "fdr", 
                domain_scope = "annotated", custom_bg = NULL, 
                numeric_ns = "", sources = c("GO:MF", "GO:BP"), as_short_link = F)

write.table(apply(CR.gostres$result,2,as.character),
            "KO_CR_GO_res-by-waves.csv", sep = ";", quote = F, row.names = F)
DNA_damage_GOterm <- CR.gostres$result[CR.gostres$result$term_id %in% c("GO:0008630", "GO:0030330", "GO:0031571", "GO:0006974", "GO:0006977","GO:0033554",
                                                                                 "GO:0044773", "GO:0042771", "GO:0042770", "GO:2001021", "GO:1902229"),]

DNA_damage_GOterm[,c(9,1,2,3,5,6,7,11)]
## # A tibble: 0 × 8
## # … with 8 variables: term_id <chr>, query <chr>, significant <lgl>,
## #   p_value <dbl>, query_size <int>, intersection_size <int>, precision <dbl>,
## #   term_name <chr>

Go term on all CR genes

CR.gostres <- gost(query = as.character(CR.Gene.dynamique$Gene),
                organism = "mmusculus", ordered_query = F, 
                multi_query = F, significant = T, exclude_iea = T, 
                measure_underrepresentation = F, evcodes = T, 
                user_threshold = 0.05, correction_method = "fdr", 
                domain_scope = "annotated", custom_bg = NULL, 
                numeric_ns = "", sources = c("GO:MF", "GO:BP"), as_short_link = F)

write.table(apply(CR.gostres$result,2,as.character),
            "KOCR_GO_res.csv", sep = ";", quote = F, row.names = F)
DNA_damage_GOterm <- CR.gostres$result[CR.gostres$result$term_id %in% c("GO:0008630", "GO:0030330", "GO:0031571", "GO:0006974", "GO:0006977",
                                                                                 "GO:0044773", "GO:0042771", "GO:0042770", "GO:2001021", "GO:1902229"),]

DNA_damage_GOterm[,c(1,2,3,5,6,7,11)]
## # A tibble: 0 × 7
## # … with 7 variables: query <chr>, significant <lgl>, p_value <dbl>,
## #   query_size <int>, intersection_size <int>, precision <dbl>, term_name <chr>

Intersection with ChP dynamicaly expressed genes

ChP_dynamic_genes <- read.table("../ChoroidPlexus_trajectory/ChP.Gene.dynamique.csv", sep = ";", header = T, row.names = 1)
CR_ChP_common_genes <- CR.Gene.dynamique %>% filter(Gene %in% ChP_dynamic_genes$Gene)
gene.order2 <- gene.order[gene.order %in% CR_ChP_common_genes$Gene]

pheatmap::pheatmap(CR_curve_matrix[gene.order2,],
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   #annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   #annotation_col = col.anno,
                   #annotation_colors = anno.colors,
                   gaps_col = 100,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

CR_ChP_common.gostres <- gost(query = list("Clust.1" = CR_ChP_common_genes %>% filter(Gene.Clusters == "Clust.1") %>% pull(Gene) %>% as.character(),
                             "Clust.2" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.2") %>% pull(Gene) %>% as.character(),
                             "Clust.3" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.3") %>% pull(Gene) %>% as.character(),
                             "Clust.4" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.4") %>% pull(Gene) %>% as.character(),
                             "Clust.5" = CR.Gene.dynamique %>% filter(Gene.Clusters == "Clust.5") %>% pull(Gene) %>% as.character()),
                organism = "mmusculus", ordered_query = F, 
                multi_query = F, significant = T, exclude_iea = T, 
                measure_underrepresentation = F, evcodes = T, 
                user_threshold = 0.05, correction_method = "fdr", 
                domain_scope = "annotated", custom_bg = NULL, 
                numeric_ns = "", sources = c("GO:MF", "GO:BP"), as_short_link = F)

write.table(apply(CR_ChP_common.gostres$result,2,as.character),
            "KO_CR_ChP_common_GO_res-by-waves.csv", sep = ";", quote = F, row.names = F)
DNA_damage_GOterm <- CR_ChP_common.gostres$result[CR_ChP_common.gostres$result$term_id %in% c("GO:0008630", "GO:0030330", "GO:0031571", "GO:0006974", "GO:0006977",
                                                                                       "GO:0044773", "GO:0042771", "GO:0042770", "GO:2001021", "GO:1902229"),]

DNA_damage_GOterm[,c(1,2,3,5,6,7,11)]
## # A tibble: 0 × 7
## # … with 7 variables: query <chr>, significant <lgl>, p_value <dbl>,
## #   query_size <int>, intersection_size <int>, precision <dbl>, term_name <chr>
CR_ChP_common.gostres <- gost(query = as.character(CR_ChP_common_genes$Gene),
                organism = "mmusculus", ordered_query = F, 
                multi_query = F, significant = T, exclude_iea = T, 
                measure_underrepresentation = F, evcodes = T, 
                user_threshold = 0.05, correction_method = "fdr", 
                domain_scope = "annotated", custom_bg = NULL, 
                numeric_ns = "", sources = c("GO:MF", "GO:BP"), as_short_link = F)

write.table(apply(CR_ChP_common.gostres$result,2,as.character),
            "KO_CR_ChP_common_GO_res_all.csv", sep = ";", quote = F, row.names = F)

Pallial neurons trajectory analysis

# Extract Pallial neurons trajectory genes
Pal.res <- as.data.frame(pseudo.maturation.diff.filtered[pseudo.maturation.diff.filtered$ABCs < 0,])
Pal.genes <- row.names(Pal.res)

Pal_curve_matrix <- Pal_curve_matrix[Pal.genes, ]

Gene expression profiles along the trajectory

## Cluster gene by expression profiles
Pseudotime.genes.clusters <- cluster::pam(as.dist((1 - cor(Matrix::t(Pal_curve_matrix),method = "pearson"))), k= 5)

Pal.Gene.dynamique <- data.frame(Gene= names(Pseudotime.genes.clusters$clustering),
                             Waves= Pseudotime.genes.clusters$clustering,
                             Gene.Clusters = Pseudotime.genes.clusters$clustering,
                             q.val = Pal.res$pval,
                             ABCs= Pal.res$ABCs
                             ) %>% arrange(Gene.Clusters)

row.names(Pal.Gene.dynamique) <- Pal.Gene.dynamique$Gene
Pal.Gene.dynamique$Gene.Clusters <- paste0("Clust.", Pal.Gene.dynamique$Gene.Clusters)
# Order the rows using seriation
dst <- as.dist((1-cor(scale(t(Pal_curve_matrix)), method = "pearson")))
row.ser <- seriation::seriate(dst, method ="R2E") #"R2E" #TSP #"GW" "GW_ward"
gene.order <- rownames(Pal_curve_matrix[get_order(row.ser),])

# Set annotation colors
pal <- wes_palette("Darjeeling1")
anno.colors <- list(lineage = c(Pallial_neurons="#026c9a", Cajal_Retzius="#cc391b"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))


pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#Pal
                                  301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = Pal.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("Pallial_neurons","Cajal_Retzius"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

We manually correct the reordering so genes are aligned from top right to bottom left

pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#Pal
                                  301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = Pal.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("Pallial_neurons","Cajal_Retzius"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

anno.colors <- list(Cell.state = c(Cycling_RG="#046c9a", Differentiating_cells="#ebcb2e"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))

col.anno <- data.frame(Cell.state = rep(c("Differentiating_cells","Cycling_RG"), c(200,100)))
rownames(col.anno) <- 300:1

pheatmap::pheatmap(Pal_curve_matrix[gene.order,300:1],
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = Pal.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = col.anno,
                   annotation_colors = anno.colors,
                   gaps_col = 200,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

Gene cluster trend

Plot.clust.trends(Neuro.trajectories,
                   Lineage = "Pallial_neurons",
                   Which.cluster = 1:5,
                   clust.list = Pseudotime.genes.clusters$clustering,
                   Smooth.method = "gam")

Pal.gostres <- gost(query = as.character(Pal.Gene.dynamique$Gene),
                organism = "mmusculus", ordered_query = F, 
                multi_query = F, significant = T, exclude_iea = T, 
                measure_underrepresentation = F, evcodes = T, 
                user_threshold = 0.05, correction_method = "fdr", 
                domain_scope = "annotated", custom_bg = NULL, 
                numeric_ns = "", sources = c("GO:MF", "GO:BP"), as_short_link = F)

write.table(apply(Pal.gostres$result, 2, as.character),
            "KO_Pal.gostres.csv", sep = ";", quote = F, row.names = F)
DNA_damage_GOterm <- Pal.gostres$result[Pal.gostres$result$term_id %in% c("GO:0008630", "GO:0030330", "GO:0031571", "GO:0006974", "GO:0006977",
                                                                                 "GO:0044773", "GO:0042771", "GO:0042770", "GO:2001021", "GO:1902229"),]

DNA_damage_GOterm[,c(1,2,3,5,6,7,11)]
## # A tibble: 7 × 7
##   query   significant p_value query_size intersection_size precision term_name  
##   <chr>   <lgl>         <dbl>      <int>             <int>     <dbl> <chr>      
## 1 query_1 TRUE        0.00461        160                 3    0.0188 mitotic G1…
## 2 query_1 TRUE        0.00649        160                 4    0.025  DNA damage…
## 3 query_1 TRUE        0.0132         160                 3    0.0188 regulation…
## 4 query_1 TRUE        0.0207         160                 3    0.0188 intrinsic …
## 5 query_1 TRUE        0.0211         160                 2    0.0125 DNA damage…
## 6 query_1 TRUE        0.0287         160                 5    0.0312 signal tra…
## 7 query_1 TRUE        0.0358         160                 4    0.025  intrinsic …

Session Info

#date
format(Sys.time(), "%d %B, %Y, %H,%M")
## [1] "03 mai, 2022, 17,44"
#Packages used
sessionInfo()
## R version 4.1.3 (2022-03-10)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.4 LTS
## 
## Matrix products: default
## BLAS:   /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.9.0
## LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.9.0
## 
## locale:
##  [1] LC_CTYPE=fr_FR.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=fr_FR.UTF-8        LC_COLLATE=fr_FR.UTF-8    
##  [5] LC_MONETARY=fr_FR.UTF-8    LC_MESSAGES=fr_FR.UTF-8   
##  [7] LC_PAPER=fr_FR.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=fr_FR.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] splines   stats4    stats     graphics  grDevices utils     datasets 
## [8] methods   base     
## 
## other attached packages:
##  [1] wesanderson_0.3.6   cowplot_1.1.1       ggExtra_0.9        
##  [4] RColorBrewer_1.1-2  dplyr_1.0.7         seriation_1.3.1    
##  [7] gprofiler2_0.2.1    monocle_2.22.0      DDRTree_0.1.5      
## [10] irlba_2.3.3         VGAM_1.1-5          ggplot2_3.3.5      
## [13] Biobase_2.54.0      BiocGenerics_0.40.0 Matrix_1.4-1       
## [16] Revelio_0.1.0       princurve_2.1.6     SeuratObject_4.0.4 
## [19] Seurat_4.0.5       
## 
## loaded via a namespace (and not attached):
##   [1] plyr_1.8.6            igraph_1.2.11         lazyeval_0.2.2       
##   [4] densityClust_0.3      listenv_0.8.0         scattermore_0.7      
##   [7] fastICA_1.2-3         digest_0.6.29         foreach_1.5.1        
##  [10] htmltools_0.5.2       viridis_0.6.2         fansi_0.5.0          
##  [13] magrittr_2.0.2        tensor_1.5            cluster_2.1.3        
##  [16] ROCR_1.0-11           limma_3.50.0          globals_0.14.0       
##  [19] matrixStats_0.61.0    docopt_0.7.1          spatstat.sparse_2.0-0
##  [22] colorspace_2.0-2      ggrepel_0.9.1         xfun_0.28            
##  [25] RCurl_1.98-1.5        sparsesvd_0.2         crayon_1.4.2         
##  [28] jsonlite_1.7.2        spatstat.data_2.1-0   survival_3.2-13      
##  [31] zoo_1.8-9             iterators_1.0.13      glue_1.5.1           
##  [34] polyclip_1.10-0       registry_0.5-1        gtable_0.3.0         
##  [37] leiden_0.3.9          future.apply_1.8.1    abind_1.4-5          
##  [40] scales_1.1.1          pheatmap_1.0.12       DBI_1.1.1            
##  [43] miniUI_0.1.1.1        Rcpp_1.0.8            viridisLite_0.4.0    
##  [46] xtable_1.8-4          reticulate_1.22       spatstat.core_2.3-1  
##  [49] htmlwidgets_1.5.4     httr_1.4.2            FNN_1.1.3            
##  [52] ellipsis_0.3.2        ica_1.0-2             farver_2.1.0         
##  [55] pkgconfig_2.0.3       sass_0.4.0            uwot_0.1.10          
##  [58] deldir_1.0-6          utf8_1.2.2            labeling_0.4.2       
##  [61] tidyselect_1.1.1      rlang_0.4.12          reshape2_1.4.4       
##  [64] later_1.3.0           munsell_0.5.0         tools_4.1.3          
##  [67] cli_3.1.0             generics_0.1.1        ggridges_0.5.3       
##  [70] evaluate_0.14         stringr_1.4.0         fastmap_1.1.0        
##  [73] yaml_2.2.1            goftest_1.2-3         knitr_1.36           
##  [76] fitdistrplus_1.1-6    purrr_0.3.4           RANN_2.6.1           
##  [79] pbapply_1.5-0         future_1.23.0         nlme_3.1-153         
##  [82] mime_0.12             slam_0.1-49           rstudioapi_0.13      
##  [85] compiler_4.1.3        plotly_4.10.0         png_0.1-7            
##  [88] spatstat.utils_2.2-0  tibble_3.1.6          bslib_0.3.1          
##  [91] stringi_1.7.6         highr_0.9             lattice_0.20-45      
##  [94] HSMMSingleCell_1.14.0 vctrs_0.3.8           pillar_1.6.4         
##  [97] lifecycle_1.0.1       spatstat.geom_2.3-0   combinat_0.0-8       
## [100] lmtest_0.9-39         jquerylib_0.1.4       RcppAnnoy_0.0.19     
## [103] bitops_1.0-7          data.table_1.14.2     httpuv_1.6.3         
## [106] patchwork_1.1.1       R6_2.5.1              promises_1.2.0.1     
## [109] TSP_1.1-11            KernSmooth_2.23-20    gridExtra_2.3        
## [112] parallelly_1.29.0     codetools_0.2-18      MASS_7.3-56          
## [115] assertthat_0.2.1      withr_2.4.3           qlcMatrix_0.9.7      
## [118] sctransform_0.3.2     mgcv_1.8-40           parallel_4.1.3       
## [121] grid_4.1.3            rpart_4.1.16          tidyr_1.1.4          
## [124] rmarkdown_2.11        Rtsne_0.15            shiny_1.7.1

  1. Institute of Psychiatry and Neuroscience of Paris, INSERM U1266, 75014, Paris, France, ↩︎

LS0tCnRpdGxlOiAiQ2FqYWwtUmV0eml1cyBjZWxscyBUcmFqZWN0b3J5IgphdXRob3I6CiAgIC0gTWF0dGhpZXUgTW9yZWF1XltJbnN0aXR1dGUgb2YgUHN5Y2hpYXRyeSBhbmQgTmV1cm9zY2llbmNlIG9mIFBhcmlzLCBJTlNFUk0gVTEyNjYsIDc1MDE0LCBQYXJpcywgRnJhbmNlLCBtYXR0aGlldS5tb3JlYXVAaW5zZXJtLmZyXSBbIVtdKGh0dHBzOi8vb3JjaWQub3JnL3NpdGVzL2RlZmF1bHQvZmlsZXMvaW1hZ2VzL29yY2lkXzE2eDE2LnBuZyldKGh0dHBzOi8vb3JjaWQub3JnLzAwMDAtMDAwMi0yNTkyLTIzNzMpCmRhdGU6ICJgciBmb3JtYXQoU3lzLnRpbWUoKSwgJyVkICVCLCAlWScpYCIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OiAKICAgIGNvZGVfZG93bmxvYWQ6IHllcwogICAgZGZfcHJpbnQ6IHRpYmJsZQogICAgaGlnaGxpZ2h0OiBoYWRkb2NrCiAgICB0aGVtZTogY29zbW8KICAgIGNzczogIi4uL3N0eWxlLmNzcyIKICAgIHRvYzogeWVzCiAgICB0b2NfZGVwdGg6IDUKICAgIHRvY19mbG9hdDoKICAgICAgY29sbGFwc2VkOiB5ZXMKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFLCBmaWcuYWxpZ24gPSAnY2VudGVyJywgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGUubGF6eSA9IEZBTFNFKQoKIyBUbyB1c2UgYmlvbWFydCAKbmV3X2NvbmZpZyA8LSBodHRyOjpjb25maWcoc3NsX3ZlcmlmeXBlZXIgPSBGQUxTRSkKaHR0cjo6c2V0X2NvbmZpZyhuZXdfY29uZmlnLCBvdmVycmlkZSA9IEZBTFNFKQpgYGAKCiMgTG9hZCBsaWJyYXJpZXMKCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmxpYnJhcnkoU2V1cmF0KQpsaWJyYXJ5KHByaW5jdXJ2ZSkKbGlicmFyeShSZXZlbGlvKQpsaWJyYXJ5KG1vbm9jbGUpCmxpYnJhcnkoZ3Byb2ZpbGVyMikKbGlicmFyeShzZXJpYXRpb24pCmxpYnJhcnkoTWF0cml4KQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KFJDb2xvckJyZXdlcikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGdnRXh0cmEpCmxpYnJhcnkoY293cGxvdCkKbGlicmFyeSh3ZXNhbmRlcnNvbikKCiNTZXQgZ2dwbG90IHRoZW1lIGFzIGNsYXNzaWMKdGhlbWVfc2V0KHRoZW1lX2NsYXNzaWMoKSkKYGBgCgojIExvYWQgdGhlIGZ1bGwgZGF0YXNldAoKYGBge3J9CldUIDwtIHJlYWRSRFMoIi4uL1FDLmZpbHRlcmVkLmNsdXN0ZXJlZC5jZWxscy5SRFMiKQpLTyA8LSByZWFkUkRTKCIuL0dtbmNLTy5jZWxscy5SRFMiKSAlPiUgc3Vic2V0KGlkZW50cyA9IGMoNjo5KSwgaW52ZXJ0ID0gVCkKYGBgCgpgYGB7cn0KRGltUGxvdChvYmplY3QgPSBLTywKICAgICAgICBncm91cC5ieSA9ICJDZWxsLmlkZW50IiwKICAgICAgICByZWR1Y3Rpb24gPSAic3ByaW5nIiwKICAgICAgICBjb2xzID0gYyggIiM0Y2FiZGMiLCAiIzcyOTNjOCIsICIjM2NhNzNmIiwKICAgICAgICAgICAgICAgICAgIiMzMWI2YmQiLCIjYTk5NjFiIiwgIiNlYmNiMmUiLCAiIzllYzIyZiIsIAogICAgICAgICAgICAgICAgICAiI2U3ODIzYSIpLAogICAgICAgIHB0LnNpemUgPSAwLjUpICAmIE5vQXhlcygpCmBgYAoKIyBFeHByZXNzaW9uIG9mIE1DQyBhbmQgc3RyZXNzIHJlc3BvbnNlIGluIFdUIGFuZCBLTwoKYGBge3J9Ck1DQy5nZW5lcyA8LSBsaXN0KGMoIlRycDczIiwgIkdtbmMiLCAiRm94ajEiLCAiTXliIiwgIkNjbm8iLCAiQ2NkYzY3IiwgIkRldXAxIiwiTWNpZGFzIiwKICAgICAgICAgICAgICAgICAgICAiRTJmNCIsICJFMmY1IiwgIkFociIsICJUcnJhcCIsICJDZGMyMGIiLCAiQ2NkYzc4IiwgIlJmeDIiLAogICAgICAgICAgICAgICAgICAgICJSZngzIiwgIkZveG40IiwgIkZhbmsxIiwgIkphemYxIiwgIkNjbmExIiwgIk5lazEwIiwgIlBsazQiLAogICAgICAgICAgICAgICAgICAgICJDZXA2MyIsICJDZXAxNTIiLCAiU2FzczYiLCAiUGNudCIsICJQY20xIiwgIkNldG4yIiwgIlRmZHAxIikpCgpLTyA8LSBBZGRNb2R1bGVTY29yZShLTywKICAgICAgICAgICAgICAgICAgICAgZmVhdHVyZXMgPSBNQ0MuZ2VuZXMsCiAgICAgICAgICAgICAgICAgICAgIG5hbWUgPSAiTUNDX3Njb3JlIikKCldUIDwtIEFkZE1vZHVsZVNjb3JlKFdULAogICAgICAgICAgICAgICAgICAgICBmZWF0dXJlcyA9IE1DQy5nZW5lcywKICAgICAgICAgICAgICAgICAgICAgbmFtZSA9ICJNQ0Nfc2NvcmUiKQpgYGAKCmBgYHtyfQpXVC5DUi5nb3Rlcm0gPC0gcmVhZC50YWJsZSgiLi4vQ2FqYWxSZXR6aXVzX3RyYWplY3RvcnkvQ1JfR09fcmVzLWJ5LXdhdmVzLmNzdiIsIHNlcCA9ICI7IiwgaGVhZGVyID0gVCkKCkROQV9kYW1hZ2VfR090ZXJtIDwtIFdULkNSLmdvdGVybSAlPiUgZmlsdGVyKHRlcm1faWQgJWluJSBjKCJHTzowMDA4NjMwIiwgIkdPOjAwMzAzMzAiLCAiR086MDAzMTU3MSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJHTzowMDA2OTc0IiwgIkdPOjAwMDY5NzciLCJHTzowMDMzNTU0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkdPOjAwNDQ3NzMiLCAiR086MDA0Mjc3MSIsICJHTzowMDQyNzcwIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkdPOjIwMDEwMjEiLCAiR086MTkwMjIyOSIpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICkKCkROQV9kYW1hZ2VfZ2VuZXMgPC0gRE5BX2RhbWFnZV9HT3Rlcm0gJT4lCiAgICAgICAgICAgICAgICAgICAgZmlsdGVyKHF1ZXJ5ICVpbiUgYygiQ2x1c3QuMiIsICJDbHVzdC4zIiwgIkNsdXN0LjQiKSkgJT4lCiAgICAgICAgICAgICAgICAgICAgZmlsdGVyKHRlcm1faWQgPT0gIkdPOjAwMzM1NTQiKSAlPiUKICAgICAgICAgICAgICAgICAgICBwdWxsKGludGVyc2VjdGlvbikgJT4lIHN0cnNwbGl0KCJcXCwiKSAlPiUgdW5saXN0KCkgJT4lIHVuaXF1ZSgpCgpLTyA8LSBBZGRNb2R1bGVTY29yZShLTywKICAgICAgICAgICAgICAgICAgICAgZmVhdHVyZXMgPSBsaXN0KEROQV9kYW1hZ2VfZ2VuZXMpLAogICAgICAgICAgICAgICAgICAgICBuYW1lID0gImNlbGx1bGFyX3Jlc3BvbnNlX3RvX3N0cmVzc19zY29yZSIpCgpXVCA8LSBBZGRNb2R1bGVTY29yZShXVCwKICAgICAgICAgICAgICAgICAgICAgZmVhdHVyZXMgPSBsaXN0KEROQV9kYW1hZ2VfZ2VuZXMpLAogICAgICAgICAgICAgICAgICAgICBuYW1lID0gImNlbGx1bGFyX3Jlc3BvbnNlX3RvX3N0cmVzc19zY29yZSIpCmBgYAoKCmBgYHtyfQpncmFkaWVudCA8LSByZXYoYnJld2VyLnBhbCg4LCJSZFlsQnUiKSkKbGltIDwtICBjKC0wLjUsMC44KQoKcDEgPC0gZ2dwbG90KEtPQG1ldGEuZGF0YSwgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICBnZW9tX3BvaW50KGFlcyhjb2xvcj1NQ0Nfc2NvcmUxKSwgc2l6ZT0xLCBzaGFwZT0xNikgKyAKICBzY2FsZV9jb2xvcl9ncmFkaWVudG4oY29sb3Vycz1ncmFkaWVudCwKICAgICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gbGltLAogICAgICAgICAgICAgICAgICAgICAgICBuYW1lPSdNdWx0aWNpbGlhdGlvbiBzY29yZScpCgoKcDIgPC0gZ2dwbG90KFdUQG1ldGEuZGF0YSwgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICBnZW9tX3BvaW50KGFlcyhjb2xvcj1NQ0Nfc2NvcmUxKSwgc2l6ZT0xLCBzaGFwZT0xNikgKyAKICBzY2FsZV9jb2xvcl9ncmFkaWVudG4oY29sb3Vycz1ncmFkaWVudCwKICAgICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gbGltLAogICAgICAgICAgICAgICAgICAgICAgICBuYW1lPSdNdWx0aWNpbGlhdGlvbiBzY29yZScpCgpwMyA8LSBnZ3Bsb3QoS09AbWV0YS5kYXRhLCBhZXMoU3ByaW5nXzEsIFNwcmluZ18yKSkgKwogIGdlb21fcG9pbnQoYWVzKGNvbG9yPWNlbGx1bGFyX3Jlc3BvbnNlX3RvX3N0cmVzc19zY29yZTEpLCBzaXplPTEsIHNoYXBlPTE2KSArIAogIHNjYWxlX2NvbG9yX2dyYWRpZW50bihjb2xvdXJzPWdyYWRpZW50LAogICAgICAgICAgICAgICAgICAgICAgICBsaW1pdHMgPSBsaW0sCiAgICAgICAgICAgICAgICAgICAgICAgIG5hbWU9J1N0cmVzcyByZXNwb25zZSBzY29yZScpCgpwNCA8LSBnZ3Bsb3QoV1RAbWV0YS5kYXRhLCBhZXMoU3ByaW5nXzEsIFNwcmluZ18yKSkgKwogIGdlb21fcG9pbnQoYWVzKGNvbG9yPWNlbGx1bGFyX3Jlc3BvbnNlX3RvX3N0cmVzc19zY29yZTEpLCBzaXplPTEsIHNoYXBlPTE2KSArIAogIHNjYWxlX2NvbG9yX2dyYWRpZW50bihjb2xvdXJzPSBncmFkaWVudCwKICAgICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gbGltLAogICAgICAgICAgICAgICAgICAgICAgICBuYW1lPSdTdHJlc3MgcmVzcG9uc2Ugc2NvcmUnKQoKCk1DQy5zY29yZXMucGxvdCA8LSBwMiArIHAxIApTdHJlc3Muc2NvcmUucGxvdCA8LSBwNCArIHAzCgpmb3IgKGkgaW4gMToyKXsKICBNQ0Muc2NvcmVzLnBsb3RbW2ldXSRkYXRhIDwtIE1DQy5zY29yZXMucGxvdFtbaV1dJGRhdGFbb3JkZXIoTUNDLnNjb3Jlcy5wbG90W1tpXV0kZGF0YSRNQ0Nfc2NvcmUxKSxdCn0KCmZvciAoaSBpbiAxOjIpewogIFN0cmVzcy5zY29yZS5wbG90W1tpXV0kZGF0YSA8LSBTdHJlc3Muc2NvcmUucGxvdFtbaV1dJGRhdGFbb3JkZXIoU3RyZXNzLnNjb3JlLnBsb3RbW2ldXSRkYXRhJGNlbGx1bGFyX3Jlc3BvbnNlX3RvX3N0cmVzc19zY29yZTEpLF0KfQoKTUNDLnNjb3Jlcy5wbG90IC8gU3RyZXNzLnNjb3JlLnBsb3QKYGBgCiMgQ29tcHV0ZSBkaWZmZXJlbnRpYXRpb24gc3RhdGVzIHNjb3JlcwoKIyMgQVAKCmBgYHtyfQpBUGdlbmVzIDwtIGMoIlJnY2MiLCAiU3BhcmMiLCAiSGVzNSIsIkhlczEiLCAiU2xjMWEzIiwKICAgICAgICAgICAgICJEZGFoMSIsICJMZGhhIiwgIkhtZ2EyIiwiU2ZycDEiLCAiSWQ0IiwKICAgICAgICAgICAgICJDcmViNSIsICJQdG4iLCAiTHBhcjEiLCAiUmNuMSIsIlpmcDM2bDEiLAogICAgICAgICAgICAgIlNveDkiLCAiU294MiIsICJOcjJlMSIsICJUdHloMSIsICJUcmlwNiIpCgpLTyA8LSBBZGRNb2R1bGVTY29yZShLTywKICAgICAgICAgICAgICAgICAgICAgZmVhdHVyZXMgPSBsaXN0KEFQZ2VuZXMpLAogICAgICAgICAgICAgICAgICAgICBuYW1lID0gIkFQX3NpZ25hdHVyZSIpCmBgYAoKIyMgQlAKCmBgYHtyfQpCUGdlbmVzIDwtIGMoIkVvbWVzIiwgIklnc2Y4IiwgIkluc20xIiwgIkVsYXZsMiIsICJFbGF2bDQiLAogICAgICAgICAgICAgIkhlczYiLCJHYWRkNDVnIiwgIk5ldXJvZzIiLCAiQnRnMiIsICJOZXVyb2cxIikKCktPIDwtIEFkZE1vZHVsZVNjb3JlKEtPLAogICAgICAgICAgICAgICAgICAgICBmZWF0dXJlcyA9IGxpc3QoQlBnZW5lcyksCiAgICAgICAgICAgICAgICAgICAgIG5hbWUgPSAiQlBfc2lnbmF0dXJlIikKYGBgCgojIyBFTgoKYGBge3J9CkVOZ2VuZXMgPC0gYygiTWZhcDQiLCAiTmhsaDIiLCAiTmhsaDEiLCAiUHBwMXIxNGEiLCAiTmF2MSIsCiAgICAgICAgICAgICAiTmV1cm9kMSIsICJTb3JsMSIsICJTdmlwIiwgIkN4Y2wxMiIsICJUZW5tNCIsCiAgICAgICAgICAgICAiRGxsMyIsICJSZ21iIiwgIkNudG4yIiwgIlZhdDEiKQoKS08gPC0gQWRkTW9kdWxlU2NvcmUoS08sCiAgICAgICAgICAgICAgICAgICAgIGZlYXR1cmVzID0gbGlzdChFTmdlbmVzKSwKICAgICAgICAgICAgICAgICAgICAgbmFtZSA9ICJFTl9zaWduYXR1cmUiKQpgYGAKCiMjIExOCgpgYGB7cn0KTE5nZW5lcyA8LSBjKCJTbmhnMTEiLCAiUGNzazFuIiwgIk1hcHQiLCAiSW5hIiwgIlN0bW40IiwKICAgICAgICAgICAgICJHYXA0MyIsICJUdWJiMmEiLCAiTHk2aCIsIlB0cHJkIiwgIk1lZjJjIikKCktPIDwtIEFkZE1vZHVsZVNjb3JlKEtPLAogICAgICAgICAgICAgICAgICAgICBmZWF0dXJlcyA9IGxpc3QoTE5nZW5lcyksCiAgICAgICAgICAgICAgICAgICAgIG5hbWUgPSAiTE5fc2lnbmF0dXJlIikKYGBgCgpgYGB7cn0KRmVhdHVyZVBsb3Qob2JqZWN0ID0gS08sCiAgICAgICAgICAgIGZlYXR1cmVzID0gYygiQVBfc2lnbmF0dXJlMSIsICJCUF9zaWduYXR1cmUxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkVOX3NpZ25hdHVyZTEiLCAiTE5fc2lnbmF0dXJlMSIpLAogICAgICAgICAgICBwdC5zaXplID0gMC43NSwKICAgICAgICAgICAgY29scyA9IHJldihicmV3ZXIucGFsKDEwLCJTcGVjdHJhbCIpKSwKICAgICAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgICAgIG9yZGVyID0gVCkgJiBOb0F4ZXMoKSAmIE5vTGVnZW5kKCkKYGBgCgojIEZpdCBwc2V1ZG90aW1lIG9uIENSIGFuZCBDUCBkaWZmZXJlbnRpYXRpbmcgbmV1cm9ucwoKIyMgR3JvdXAgY2VsbHMgaW4gUGFsbGlhbCBvciBDUiBsaW5lYWdlCgpgYGB7cn0KS08kTGluZWFnZSA8LSBzYXBwbHkoS08kQ2VsbC5pZGVudCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRlVOID0gZnVuY3Rpb24oeCkgewogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmICh4ICVpbiUgYygiTmV1cm9uX3Byb2IuMiIsICJIZW0iKSkgewogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeCA9ICJDYWphbC1SZXR6aXVzX25ldXJvbnMiCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgfSBlbHNlIGlmICh4ICVpbiUgYygiTmV1cm9uX3Byb2IuMyIsICJNZWRpYWxfcGFsbGl1bSIpKSB7CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB4ID0gIlBhbGxpYWxfbmV1cm9ucyIKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB9IGVsc2UgewogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeCA9ICJvdGhlciIKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIH0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgfSkKYGBgCgpgYGB7cn0KRGltUGxvdChLTywKICAgICAgICByZWR1Y3Rpb24gPSAic3ByaW5nIiwKICAgICAgICBncm91cC5ieSA9ICJMaW5lYWdlIiwKICAgICAgICBwdC5zaXplID0gMSwKICAgICAgICBjb2xzID0gIGMoIiNjYzM5MWIiLCIjOTY5Njk2IiwiIzAyNmM5YSIpCiAgICAgICAgKSArIE5vQXhlcygpCmBgYAoKCiMjIEZpdCBwcmluY2lwYWxlIGN1cnZlIG9uIHRoZSB0d28gbGluZWFnZXMKCmBgYHtyfQpOZXVyb25zLmRhdGEgPC0gIHN1YnNldChLTywgIHN1YnNldCA9IExpbmVhZ2UgJWluJSBjKCJDYWphbC1SZXR6aXVzX25ldXJvbnMiLCAiUGFsbGlhbF9uZXVyb25zIikgJiBDZWxsLmlkZW50ICVpbiUgYygiTmV1cm9uX3Byb2IuMiIsICJOZXVyb25fcHJvYi4zIikpCgpEaW1QbG90KE5ldXJvbnMuZGF0YSAsCiAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgZ3JvdXAuYnkgPSAiTGluZWFnZSIsCiAgICAgICAgcHQuc2l6ZSA9IDEsCiAgICAgICAgY29scyA9ICBjKCIjY2MzOTFiIiwiIzAyNmM5YSIpCiAgICAgICAgKSArIE5vQXhlcygpCmBgYAoKYGBge3J9CmZpdCA8LSBwcmluY2lwYWxfY3VydmUoYXMubWF0cml4KE5ldXJvbnMuZGF0YUBtZXRhLmRhdGFbLGMoIlNwcmluZ18xIiwgIlNwcmluZ18yIildKSwKICAgICAgICAgICAgICAgICAgICAgICBzbW9vdGhlcj0nbG93ZXNzJywKICAgICAgICAgICAgICAgICAgICAgICB0cmFjZT1UUlVFLAogICAgICAgICAgICAgICAgICAgICAgIGYgPSAxLAogICAgICAgICAgICAgICAgICAgICAgIHN0cmV0Y2g9MCkKYGBgCgpgYGB7cn0KI1BzZXVkb3RpbWUgc2NvcmUKUHNldWRvdGltZVNjb3JlIDwtIGZpdCRsYW1iZGEvbWF4KGZpdCRsYW1iZGEpCgppZiAoY29yKFBzZXVkb3RpbWVTY29yZSwgTmV1cm9ucy5kYXRhQGFzc2F5cyRTQ1RAZGF0YVsnSG1nYTInLCBdKSA+IDApIHsKICBOZXVyb25zLmRhdGEkUHNldWRvdGltZVNjb3JlIDwtIC0oUHNldWRvdGltZVNjb3JlIC0gbWF4KFBzZXVkb3RpbWVTY29yZSkpCn0KCmNvbHMgPC0gYnJld2VyLnBhbChuID0xMSwgbmFtZSA9ICJTcGVjdHJhbCIpCgpnZ3Bsb3QoTmV1cm9ucy5kYXRhQG1ldGEuZGF0YSwgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICBnZW9tX3BvaW50KGFlcyhjb2xvcj1Qc2V1ZG90aW1lU2NvcmUpLCBzaXplPTIsIHNoYXBlPTE2KSArIAogIHNjYWxlX2NvbG9yX2dyYWRpZW50bihjb2xvdXJzPXJldihjb2xzKSwgbmFtZT0nUHNldWRvdGltZSBzY29yZScpCmBgYAoKIyMgUGxvdCBwYW4tbmV1cm9uYWwgZ2VuZXMgYWxvbmcgdGhpcyBheGlzCgpgYGB7cn0KTmV1cm9ucy5kYXRhIDwtIE5vcm1hbGl6ZURhdGEoTmV1cm9ucy5kYXRhLCBub3JtYWxpemF0aW9uLm1ldGhvZCA9ICJMb2dOb3JtYWxpemUiLCBzY2FsZS5mYWN0b3IgPSAxMDAwMCwgYXNzYXkgPSAiUk5BIikKYGBgCgpgYGB7ciBmaWcuZGltPWMoOSwxMCl9ClRyYWplY3Rvcmllcy5uZXVyb25zIDwtIE5ldXJvbnMuZGF0YUBtZXRhLmRhdGEgJT4lIHNlbGVjdChCYXJjb2RlcywgU3ByaW5nXzEsIFNwcmluZ18yLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQVBfc2lnbmF0dXJlMSwgQlBfc2lnbmF0dXJlMSwgRU5fc2lnbmF0dXJlMSwgTE5fc2lnbmF0dXJlMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIExpbmVhZ2UsIFBzZXVkb3RpbWVTY29yZSkKCiMgTmV1cm9nMgpwMSA8LSBGZWF0dXJlUGxvdChvYmplY3QgPSBOZXVyb25zLmRhdGEsCiAgICAgICAgICAgIGZlYXR1cmVzID0gYygiTmV1cm9nMiIpLAogICAgICAgICAgICBwdC5zaXplID0gMC41LAogICAgICAgICAgICBjb2xzID0gYygiZ3JleTkwIiwgYnJld2VyLnBhbCg5LCJZbEduQnUiKSksCiAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgICAgICBvcmRlciA9IFQpICYgTm9BeGVzKCkKClRyYWplY3Rvcmllcy5uZXVyb25zJE5ldXJvZzIgPC0gTmV1cm9ucy5kYXRhQGFzc2F5cyRSTkFAZGF0YVsiTmV1cm9nMiIsIFRyYWplY3Rvcmllcy5uZXVyb25zJEJhcmNvZGVzXQoKcDIgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5uZXVyb25zLCBhZXMoeD0gUHNldWRvdGltZVNjb3JlLCB5PSBOZXVyb2cyKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgKwogICAgICAgIGdlb21fc21vb3RoKG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgYWVzKGNvbG9yPSBMaW5lYWdlKSkgKwogICAgICAgIHlsaW0oMCxOQSkKCiMgVGJyMSAKcDMgPC0gRmVhdHVyZVBsb3Qob2JqZWN0ID0gTmV1cm9ucy5kYXRhICwKICAgICAgICAgICAgZmVhdHVyZXMgPSBjKCJUYnIxIiksCiAgICAgICAgICAgIHB0LnNpemUgPSAwLjUsCiAgICAgICAgICAgIGNvbHMgPSBjKCJncmV5OTAiLCBicmV3ZXIucGFsKDksIllsR25CdSIpKSwKICAgICAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgICAgIG9yZGVyID0gVCkgJiBOb0F4ZXMoKQpUcmFqZWN0b3JpZXMubmV1cm9ucyRUYnIxIDwtIE5ldXJvbnMuZGF0YUBhc3NheXMkUk5BQGRhdGFbIlRicjEiLCBUcmFqZWN0b3JpZXMubmV1cm9ucyRCYXJjb2Rlc10KCnA0IDwtIGdncGxvdChUcmFqZWN0b3JpZXMubmV1cm9ucywgYWVzKHg9IFBzZXVkb3RpbWVTY29yZSwgeT0gVGJyMSkpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gTGluZWFnZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsICIjMDI2YzlhIikpICsKICAgICAgICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGFlcyhjb2xvcj0gTGluZWFnZSkpICsKICAgICAgICB5bGltKDAsTkEpCgojIE1hcHQgCnA1IDwtIEZlYXR1cmVQbG90KG9iamVjdCA9IE5ldXJvbnMuZGF0YSAsCiAgICAgICAgICAgIGZlYXR1cmVzID0gYygiTWFwdCIpLAogICAgICAgICAgICBwdC5zaXplID0gMC41LAogICAgICAgICAgICBjb2xzID0gYygiZ3JleTkwIiwgYnJld2VyLnBhbCg5LCJZbEduQnUiKSksCiAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgICAgICBvcmRlciA9IFQpICYgTm9BeGVzKCkKClRyYWplY3Rvcmllcy5uZXVyb25zJE1hcHQgPC0gTmV1cm9ucy5kYXRhQGFzc2F5cyRSTkFAZGF0YVsiTWFwdCIsIFRyYWplY3Rvcmllcy5uZXVyb25zJEJhcmNvZGVzXQoKcDYgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5uZXVyb25zLCBhZXMoeD0gUHNldWRvdGltZVNjb3JlLCB5PSBNYXB0KSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgKwogICAgICAgIGdlb21fc21vb3RoKG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgYWVzKGNvbG9yPSBMaW5lYWdlKSkgKwogICAgICAgIHlsaW0oMCxOQSkKCnAxICsgcDIgKyBwMyArIHA0ICsgcDUgKyBwNiArIHBhdGNod29yazo6cGxvdF9sYXlvdXQobmNvbCA9IDIpCmBgYAojIyBTaGlmdCBwc2V1ZG90aW1lIHNjb3JlCgpgYGB7cn0Kc2NvcmUgPC0gc2FwcGx5KFRyYWplY3Rvcmllcy5uZXVyb25zJFBzZXVkb3RpbWVTY29yZSwKICAgICAgICAgICAgICAgIEZVTiA9IGZ1bmN0aW9uKHgpIGlmICh4IDw9IDAuMTUpIHt4PSAwLjE1fSBlbHNlIHsgeD14IH0pCgpUcmFqZWN0b3JpZXMubmV1cm9ucyRQc2V1ZG90aW1lU2NvcmUuc2hpZnRlZCA8LSAoc2NvcmUgLSBtaW4oc2NvcmUpKSAvIChtYXgoc2NvcmUpIC0gbWluKHNjb3JlKSkKYGBgCgpgYGB7cn0KIyBOZXVyb2cyCnAxIDwtIEZlYXR1cmVQbG90KG9iamVjdCA9IE5ldXJvbnMuZGF0YSAsCiAgICAgICAgICAgIGZlYXR1cmVzID0gYygiTmV1cm9nMiIpLAogICAgICAgICAgICBwdC5zaXplID0gMC41LAogICAgICAgICAgICBjb2xzID0gYygiZ3JleTkwIiwgYnJld2VyLnBhbCg5LCJZbEduQnUiKSksCiAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgICAgICBvcmRlciA9IFQpICYgTm9BeGVzKCkKCnAyIDwtIGdncGxvdChUcmFqZWN0b3JpZXMubmV1cm9ucywgYWVzKHg9IFBzZXVkb3RpbWVTY29yZS5zaGlmdGVkLCB5PSBOZXVyb2cyKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgKwogICAgICAgIGdlb21fc21vb3RoKG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgYWVzKGNvbG9yPSBMaW5lYWdlKSkgKwogICAgICAgIHlsaW0oMCxOQSkKCiMgVGJyMSAKcDMgPC0gRmVhdHVyZVBsb3Qob2JqZWN0ID0gTmV1cm9ucy5kYXRhICwKICAgICAgICAgICAgZmVhdHVyZXMgPSBjKCJUYnIxIiksCiAgICAgICAgICAgIHB0LnNpemUgPSAwLjUsCiAgICAgICAgICAgIGNvbHMgPSBjKCJncmV5OTAiLCBicmV3ZXIucGFsKDksIllsR25CdSIpKSwKICAgICAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgICAgIG9yZGVyID0gVCkgJiBOb0F4ZXMoKQoKcDQgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5uZXVyb25zLCBhZXMoeD0gUHNldWRvdGltZVNjb3JlLnNoaWZ0ZWQsIHk9IFRicjEpKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9IExpbmVhZ2UpLCBzaXplPTAuNSkgKwogICAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSArCiAgICAgICAgZ2VvbV9zbW9vdGgobWV0aG9kPSJsb2VzcyIsIG49IDUwLCBhZXMoY29sb3I9IExpbmVhZ2UpKSArCiAgICAgICAgeWxpbSgwLE5BKQoKIyBNYXB0IApwNSA8LSBGZWF0dXJlUGxvdChvYmplY3QgPSBOZXVyb25zLmRhdGEgLAogICAgICAgICAgICBmZWF0dXJlcyA9IGMoIk1hcHQiKSwKICAgICAgICAgICAgcHQuc2l6ZSA9IDAuNSwKICAgICAgICAgICAgY29scyA9IGMoImdyZXk5MCIsIGJyZXdlci5wYWwoOSwiWWxHbkJ1IikpLAogICAgICAgICAgICByZWR1Y3Rpb24gPSAic3ByaW5nIiwKICAgICAgICAgICAgb3JkZXIgPSBUKSAmIE5vQXhlcygpCgpwNiA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLm5ldXJvbnMsIGFlcyh4PSBQc2V1ZG90aW1lU2NvcmUuc2hpZnRlZCwgeT0gTWFwdCkpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gTGluZWFnZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsICIjMDI2YzlhIikpICsKICAgICAgICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGFlcyhjb2xvcj0gTGluZWFnZSkpICsKICAgICAgICB5bGltKDAsTkEpCgpwMSArIHAyICsgcDMgKyBwNCArIHA1ICsgcDYgKyBwYXRjaHdvcms6OnBsb3RfbGF5b3V0KG5jb2wgPSAyKQpgYGAKCgpgYGB7cn0KVHJhamVjdG9yaWVzLm5ldXJvbnMkblVNSSA8LSBOZXVyb25zLmRhdGEkbkNvdW50X1JOQQoKZ2dwbG90KFRyYWplY3Rvcmllcy5uZXVyb25zLCBhZXMoeD0gUHNldWRvdGltZVNjb3JlLnNoaWZ0ZWQsIHk9IG5VTUkvMTAwMDApKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9IExpbmVhZ2UpLCBzaXplPTAuNSkgKwogICAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSArCiAgICAgICAgZ2VvbV9zbW9vdGgobWV0aG9kPSJsb2VzcyIsIG49IDUwLCBhZXMoY29sb3I9IExpbmVhZ2UpKSArCiAgICAgICAgeWxpbSgwLE5BKQpgYGAKCiMgRml0IGNlbGwgY3ljbGUgdHJhamVjdG9yeSBvbiBwcm9nZW5pdG9ycwoKVG8gYmFsYW5jZSB0aGUgbnVtYmVyIG9mIHByb2dlbml0b3JzIGluIGJvdGggZG9tYWluIHdlIHdpbGwgb25seSB3b3JrIHdpdGggKkhlbSogYW5kICpNZWRpYWxfcGFsbGl1bSogYW5ub3RhdGVkIGNlbGxzLiBTaW5jZSB3ZSBhcmUgdXNpbmcgcGFsbGlhbCBjZWxsIHRvIGNvbnRyYXN0IENSIHNwZWNpZmljIHRyYWplY3Rvcnkgd2UgdGhpbmsgdGhpcyBhcHByb3hpbWF0aW9uIHdpbGwgbm90IHNpZ25pZmljYW50bHkgYWZmZWN0IG91ciBhbmFseXNpcy4KCmBgYHtyfQpQcm9nZW5pdG9ycy5kYXRhIDwtICBzdWJzZXQoS08sICBzdWJzZXQgPSBMaW5lYWdlICVpbiUgYygiQ2FqYWwtUmV0eml1c19uZXVyb25zIiwgIlBhbGxpYWxfbmV1cm9ucyIpICYgQ2VsbC5pZGVudCAlaW4lIGMoIkhlbSIsICJNZWRpYWxfcGFsbGl1bSIpKQoKRGltUGxvdChQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgIGdyb3VwLmJ5ID0gIkNlbGwuaWRlbnQiLAogICAgICAgIHB0LnNpemUgPSAxLAogICAgICAgIGNvbHMgPSAgYygiI2NjMzkxYiIsIiMwMjZjOWEiKQogICAgICAgICkgKyBOb0F4ZXMoKQpgYGAKYGBge3J9CnRhYmxlKFByb2dlbml0b3JzLmRhdGEkQ2VsbC5pZGVudCkKYGBgCgpgYGB7cn0Kcm0obGlzdCA9IGxzKClbIWxzKCkgJWluJSBjKCJUcmFqZWN0b3JpZXMubmV1cm9ucyIsICJQcm9nZW5pdG9ycy5kYXRhIildKQpnYygpCmBgYAoKIyMgUHJlcGFyZSBkYXRhIGZvciBSZXZlbGlvCgpgYGB7cn0KcmF3Q291bnRzIDwtIGFzLm1hdHJpeChQcm9nZW5pdG9ycy5kYXRhW1siUk5BIl1dQGNvdW50cykKCiMgRmlsdGVyIGdlbmVzIGV4cHJlc3NlZCBieSBsZXNzIHRoYW4gMTAgY2VsbHMKbnVtLmNlbGxzIDwtIE1hdHJpeDo6cm93U3VtcyhyYXdDb3VudHMgPiAwKQpnZW5lcy51c2UgPC0gbmFtZXMoeCA9IG51bS5jZWxsc1t3aGljaCh4ID0gbnVtLmNlbGxzID49IDEwKV0pCnJhd0NvdW50cyA8LSByYXdDb3VudHNbZ2VuZXMudXNlLCBdCmBgYAoKIyMgUnVuIFJldmVsaW8KCmBgYHtyfQpDQ2dlbmVzIDwtIHJlYWQudGFibGUoIi4uL0Nob3JvaWRQbGV4dXNfdHJhamVjdG9yeS9DQ2dlbmVzLmNzdiIsIHNlcCA9ICI7IiwgaGVhZGVyID0gVCkKYGBgCgpXZSBjYW4gbm93IGZvbGxvdyB0aGUgdHV0b3JpYWwgZm9ybSB0aGUgW3BhY2thZ2UgZ2l0aHViIHBhZ2VdKGh0dHBzOi8vZ2l0aHViLmNvbS9kYW5pZWxzY2h3MTg4L1JldmVsaW8pCgoKYGBge3J9Cm15RGF0YSA8LSBjcmVhdGVSZXZlbGlvT2JqZWN0KHJhd0RhdGEgPSByYXdDb3VudHMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGN5Y2xpY0dlbmVzID0gQ0NnZW5lcywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbG93ZXJuR2VuZUN1dG9mZiA9IDAsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHVwcGVyblVNSUN1dG9mZiA9IEluZiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY2NQaGFzZUFzc2lnbkJhc2VkT25JbmRpdmlkdWFsQmF0Y2hlcyA9IEYpCgpybSgicmF3Q291bnRzIikKZ2MoKQpgYGAKVGhlIGdldENlbGxDeWNsZVBoYXNlQXNzaWduSW5mb3JtYXRpb24gZmlsdGVyIOKAnG91dGxpZXLigJ0gY2VsbHMgZm9yIGNlbGwgY3ljbGUgcGhhc2UgYXNzaWduYXRpb24uIFdlIG1vZGlmaWVkIHRoZSBmdW5jdGlvbiB0byBrZWVwIGFsbCBjZWxscyBhcyB3ZSBvYnNlcnZlZCB0aGlzIGRvZXMgbm90IGFmZmVjdCB0aGUgZ2xvYmFsIGNlbGwgY3ljbGUgZml0dGluZyBwcm9jZWR1cmUKCmBgYHtyfQpzb3VyY2UoIi4uL0Z1bmN0aW9ucy9mdW5jdGlvbnNfSW5pdGlhbGl6YXRpb25DQ1BoYXNlQXNzaWduRmlsdGVyaW5nLlIiKQoKbXlEYXRhIDwtIGdldENlbGxDeWNsZVBoYXNlQXNzaWduX2FsbGNlbGxzKG15RGF0YSkKYGBgCgpgYGB7cn0KbXlEYXRhIDwtIGdldFBDQURhdGEoZGF0YUxpc3QgPSBteURhdGEpCgpteURhdGEgPC0gZ2V0T3B0aW1hbFJvdGF0aW9uKGRhdGFMaXN0ID0gbXlEYXRhKQpgYGAKIyMgR3JhcGhpY2FsIGFzc2VzbWVudCBvZiBjZWxsIGN5Y2xlIGZpdHRpbmcKCmBgYHtyfQpDZWxsQ3ljbGVkYXRhIDwtIGNiaW5kKGFzLmRhdGEuZnJhbWUodChteURhdGFAdHJhbnNmb3JtZWREYXRhJGRjJGRhdGFbMToyLF0pKSwKICAgICAgICAgICAgICAgICAgICAgICBuVU1JPSBteURhdGFAY2VsbEluZm8kblVNSSwKICAgICAgICAgICAgICAgICAgICAgICBSZXZlbGlvLnBoYXNlID0gZmFjdG9yKG15RGF0YUBjZWxsSW5mbyRjY1BoYXNlLCBsZXZlbHMgPSBjKCJHMS5TIiwgIlMiLCAiRzIiLCAiRzIuTSIsICJNLkcxIikpLAogICAgICAgICAgICAgICAgICAgICAgIFJldmVsaW8uY2M9IG15RGF0YUBjZWxsSW5mbyRjY1BlcmNlbnRhZ2VVbmlmb3JtbHlTcGFjZWQsCiAgICAgICAgICAgICAgICAgICAgICAgRG9tYWluPSBQcm9nZW5pdG9ycy5kYXRhJENlbGwuaWRlbnQpCmBgYAoKYGBge3J9CnAxIDwtIGdncGxvdChDZWxsQ3ljbGVkYXRhLCBhZXMoREMxLCBEQzIpKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3IgPSBSZXZlbGlvLnBoYXNlKSwgc2l6ZT0gMC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYyh3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzE6M10sImdyZXk0MCIsd2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVs1XSkpCgpwMiA8LSBnZ3Bsb3QoQ2VsbEN5Y2xlZGF0YSwgYWVzKERDMSwgREMyKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yID0gRG9tYWluKSwgc2l6ZSA9IDAuNSkgKwogICAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCIjMDI2YzlhIikpCgpwMyA8LSBnZ3Bsb3QoQ2VsbEN5Y2xlZGF0YSwgYWVzKERDMSwgREMyKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPVJldmVsaW8uY2MpLCBzaXplPTAuNSwgc2hhcGU9MTYpICsgCiAgICAgICAgc2NhbGVfY29sb3JfZ3JhZGllbnRuKGNvbG91cnM9cmV2KGNvbG9yUmFtcFBhbGV0dGUoYnJld2VyLnBhbChuID0xMSwgbmFtZSA9ICJTcGVjdHJhbCIpKSgxMDApKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFtZT0nUmV2ZWxpb19jYycpCgpwNCA8LSBnZ3Bsb3QoQ2VsbEN5Y2xlZGF0YSwgYWVzKHg9IFJldmVsaW8uY2MsIHk9IG5VTUkvMTAwMDApKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9IFJldmVsaW8ucGhhc2UpLCBzaXplPTAuNSkgKwogICAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMod2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVsxOjNdLCJncmV5NDAiLHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbNV0pKSArCiAgICAgICAgZ2VvbV9zbW9vdGgobWV0aG9kPSJsb2VzcyIsIG49IDUwLCBmaWxsPSJncmV5IikgKwogICAgICAgIHlsaW0oMCxOQSkKCihwMSArIHAyKSAvKHAzICsgcDQpCmBgYApgYGB7cn0KUHJvZ2VuaXRvcnMuZGF0YSRSZXZlbGlvLnBoYXNlIDwtIENlbGxDeWNsZWRhdGEkUmV2ZWxpby5waGFzZQpQcm9nZW5pdG9ycy5kYXRhJFJldmVsaW8uY2MgPC0gQ2VsbEN5Y2xlZGF0YSRSZXZlbGlvLmNjCgpwMSA8LSBGZWF0dXJlUGxvdChvYmplY3QgPSBQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgICAgICAgICAgICBmZWF0dXJlcyA9ICJSZXZlbGlvLmNjIiwKICAgICAgICAgICAgICAgICAgcHQuc2l6ZSA9IDEsCiAgICAgICAgICAgICAgICAgIGNvbHMgPSByZXYoYnJld2VyLnBhbCgxMCwiU3BlY3RyYWwiKSksCiAgICAgICAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgICAgICAgICAgICBvcmRlciA9IFQpICYgTm9BeGVzKCkKCnAyIDwtIERpbVBsb3Qob2JqZWN0ID0gUHJvZ2VuaXRvcnMuZGF0YSwKICAgICAgICAgICAgICBncm91cC5ieSA9ICJSZXZlbGlvLnBoYXNlIiwKICAgICAgICAgICAgICBwdC5zaXplID0gMSwKICAgICAgICAgICAgICByZWR1Y3Rpb24gPSAic3ByaW5nIiwKICAgICAgICAgICAgICBjb2xzID0gIGMod2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVsxOjNdLCJncmV5NDAiLHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbNV0pKSAmIE5vQXhlcygpCgpwMSAvIHAyCmBgYAoKIyMgVHJhbnNmZXJ0IGxlYXJuIGNlbGwgY3ljbGUgYXhpcwoKYGBge3J9ClByb2dlbml0b3JzIDwtIFByb2dlbml0b3JzLmRhdGFAbWV0YS5kYXRhICU+JSBzZWxlY3QoQmFyY29kZXMsIFNwcmluZ18xLCBTcHJpbmdfMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBBUF9zaWduYXR1cmUxLCBCUF9zaWduYXR1cmUxLCBFTl9zaWduYXR1cmUxLCBMTl9zaWduYXR1cmUxLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIExpbmVhZ2UpCgpQcm9nZW5pdG9ycyRQc2V1ZG90aW1lU2NvcmUgPC0gQ2VsbEN5Y2xlZGF0YSRSZXZlbGlvLmNjClByb2dlbml0b3JzJG5VTUkgPC0gUHJvZ2VuaXRvcnMuZGF0YSRuQ291bnRfUk5BCmBgYAoKIyBDb21iaW5lIFByb2dlbml0b3JzIGFuZCBkaWZmZXJlbnRpYXRpbmcgbmV1cm9ucyBkYXRhCgpgYGB7cn0KIyBTdGFydCB3aXRoIG5ldXJvbnMgZGF0YQpUcmFqZWN0b3JpZXMuYWxsIDwtIFRyYWplY3Rvcmllcy5uZXVyb25zICU+JSBzZWxlY3QoQmFyY29kZXMsIG5VTUksIFNwcmluZ18xLCBTcHJpbmdfMiwgQVBfc2lnbmF0dXJlMSwgQlBfc2lnbmF0dXJlMSwgRU5fc2lnbmF0dXJlMSwgTE5fc2lnbmF0dXJlMSwgTGluZWFnZSkKClRyYWplY3Rvcmllcy5hbGwkUHNldWRvdGltZSA8LSBUcmFqZWN0b3JpZXMubmV1cm9ucyRQc2V1ZG90aW1lU2NvcmUuc2hpZnRlZCArIDAuNQpUcmFqZWN0b3JpZXMuYWxsJFBoYXNlIDwtIE5BCmBgYAoKYGBge3J9CiMgQWRkIHByb2dlbml0b3JzIGRhdGEKVHJhamVjdG9yaWVzLnByb2dlbml0b3JzIDwtIFByb2dlbml0b3JzICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZWxlY3QoQmFyY29kZXMsIG5VTUksIFNwcmluZ18xLCBTcHJpbmdfMiwgQVBfc2lnbmF0dXJlMSwgQlBfc2lnbmF0dXJlMSwgRU5fc2lnbmF0dXJlMSwgTE5fc2lnbmF0dXJlMSwgTGluZWFnZSkgJT4lIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtdXRhdGUoUHNldWRvdGltZT0gUHJvZ2VuaXRvcnMuZGF0YSRSZXZlbGlvLmNjLzIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQaGFzZSA9IFByb2dlbml0b3JzLmRhdGEkUmV2ZWxpby5waGFzZSkKYGBgCgpgYGB7cn0KVHJhamVjdG9yaWVzLmFsbCA8LSByYmluZChUcmFqZWN0b3JpZXMuYWxsLCBUcmFqZWN0b3JpZXMucHJvZ2VuaXRvcnMpCgpUcmFqZWN0b3JpZXMuYWxsJFBoYXNlIDwtIGZhY3RvcihUcmFqZWN0b3JpZXMuYWxsJFBoYXNlLCBsZXZlbHMgPSBjKCJHMS5TIiwgIlMiLCAiRzIiLCAiRzIuTSIsICJNLkcxIikpCmBgYAoKYGBge3J9CnAxIDwtIGdncGxvdChUcmFqZWN0b3JpZXMuYWxsLCBhZXMoU3ByaW5nXzEsIFNwcmluZ18yKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPVBzZXVkb3RpbWUpLCBzaXplPTAuNSkgKyAKICAgICAgICBzY2FsZV9jb2xvcl9ncmFkaWVudG4oY29sb3Vycz1yZXYoYnJld2VyLnBhbChuID0xMSwgbmFtZSA9ICJTcGVjdHJhbCIpKSwgbmFtZT0nUHNldWRvdGltZSBzY29yZScpCgpwMiA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLmFsbCwgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gTGluZWFnZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsICIjMDI2YzlhIikpCgpwMSArIHAyCmBgYApgYGB7cn0KcDEgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5hbGwsIGFlcyh4PSBQc2V1ZG90aW1lLCB5PSBuVU1JLzEwMDAwKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBQaGFzZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYyh3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzE6M10sImdyZXk0MCIsd2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVs1XSkpICsKICAgICAgICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGZpbGw9ImdyZXkiKSArCiAgICAgICAgeWxpbSgwLE5BKQoKcDIgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5hbGwsIGFlcyh4PSBQc2V1ZG90aW1lLCB5PSBuVU1JLzEwMDAwKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgKwogICAgICAgIGdlb21fc21vb3RoKGFlcyhjb2xvcj0gTGluZWFnZSksIG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgZmlsbD0iZ3JleSIpICsKICAgICAgICB5bGltKDAsTkEpCgpwMSAvIHAyCmBgYAoKCmBgYHtyfQpwMSA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLmFsbCwgYWVzKHg9IFBzZXVkb3RpbWUsIHk9IEFQX3NpZ25hdHVyZTEpKSArCiAgZ2VvbV9wb2ludChhZXMoY29sb3I9IExpbmVhZ2UpLCBzaXplPTAuNSkgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSArCiAgZ2VvbV9zbW9vdGgoYWVzKGNvbG9yPSBMaW5lYWdlKSwgbWV0aG9kPSJsb2VzcyIsIG49IDUwLCBmaWxsPSJncmV5IikKCgpwMiA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLmFsbCwgYWVzKHg9IFBzZXVkb3RpbWUsIHk9IEJQX3NpZ25hdHVyZTEpKSArCiAgZ2VvbV9wb2ludChhZXMoY29sb3I9IExpbmVhZ2UpLCBzaXplPTAuNSkgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSArCiAgZ2VvbV9zbW9vdGgoYWVzKGNvbG9yPSBMaW5lYWdlKSwgbWV0aG9kPSJsb2VzcyIsIG49IDUwLCBmaWxsPSJncmV5IikKCnAzIDwtIGdncGxvdChUcmFqZWN0b3JpZXMuYWxsLCBhZXMoeD0gUHNldWRvdGltZSwgeT0gRU5fc2lnbmF0dXJlMSkpICsKICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gTGluZWFnZSksIHNpemU9MC41KSArCiAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsICIjMDI2YzlhIikpICsKICBnZW9tX3Ntb290aChhZXMoY29sb3I9IExpbmVhZ2UpLCBtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGZpbGw9ImdyZXkiKQoKcDQgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5hbGwsIGFlcyh4PSBQc2V1ZG90aW1lLCB5PSBMTl9zaWduYXR1cmUxKSkgKwogIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgKwogIGdlb21fc21vb3RoKGFlcyhjb2xvcj0gTGluZWFnZSksIG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgZmlsbD0iZ3JleSIpCgoKcDEgLyBwMiAvIHAzIC8gcDQKYGBgCgojIyBTdWJzZXQgdGhlIGZ1bGwgU2V1cmF0IG9iamVjdAoKYGBge3J9CktPIDwtIHJlYWRSRFMoIi4vR21uY0tPLmNlbGxzLlJEUyIpICU+JSBzdWJzZXQoaWRlbnRzID0gYyg2OjkpLCBpbnZlcnQgPSBUKQpgYGAKCmBgYHtyfQpOZXVyby50cmFqZWN0b3JpZXMgPC0gQ3JlYXRlU2V1cmF0T2JqZWN0KGNvdW50cyA9IEtPQGFzc2F5cyRSTkFAZGF0YVssIFRyYWplY3Rvcmllcy5hbGwkQmFyY29kZXNdLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1ldGEuZGF0YSA9IFRyYWplY3Rvcmllcy5hbGwpCgpzcHJpbmcgPC0gYXMubWF0cml4KE5ldXJvLnRyYWplY3Rvcmllc0BtZXRhLmRhdGEgJT4lIHNlbGVjdCgiU3ByaW5nXzEiLCAiU3ByaW5nXzIiKSkKICAKTmV1cm8udHJhamVjdG9yaWVzW1sic3ByaW5nIl1dIDwtIENyZWF0ZURpbVJlZHVjT2JqZWN0KGVtYmVkZGluZ3MgPSBzcHJpbmcsIGtleSA9ICJTcHJpbmdfIiwgYXNzYXkgPSBEZWZhdWx0QXNzYXkoTmV1cm8udHJhamVjdG9yaWVzKSkKYGBgCgpgYGB7cn0KcDEgPC0gRmVhdHVyZVBsb3Qob2JqZWN0ID0gTmV1cm8udHJhamVjdG9yaWVzLAogICAgICAgICAgICBmZWF0dXJlcyA9ICJQc2V1ZG90aW1lIiwKICAgICAgICAgICAgcHQuc2l6ZSA9IDAuNSwKICAgICAgICAgICAgY29scyA9IHJldihjb2xvclJhbXBQYWxldHRlKGJyZXdlci5wYWwobiA9MTEsIG5hbWUgPSAiU3BlY3RyYWwiKSkoMTAwKSksCiAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgICAgICBvcmRlciA9IFQpICYgTm9BeGVzKCkKCnAyIDwtIERpbVBsb3Qob2JqZWN0ID0gTmV1cm8udHJhamVjdG9yaWVzLAogICAgICAgIGdyb3VwLmJ5ID0gIkxpbmVhZ2UiLAogICAgICAgIHB0LnNpemUgPSAwLjUsCiAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgY29scyA9ICBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgJiBOb0F4ZXMoKQoKCnAzIDwtIERpbVBsb3Qob2JqZWN0ID0gTmV1cm8udHJhamVjdG9yaWVzLAogICAgICAgIGdyb3VwLmJ5ID0gIlBoYXNlIiwKICAgICAgICBwdC5zaXplID0gMC41LAogICAgICAgIHJlZHVjdGlvbiA9ICJzcHJpbmciLAogICAgICAgIGNvbHMgPSAgYyh3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzE6M10sImdyZXk0MCIsd2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVs1XSkpICYgTm9BeGVzKCkKCnAxICsgcDIgKyBwMwpgYGAKYGBge3J9CnJtKGxpc3QgPSBscygpWyFscygpICVpbiUgYygiTmV1cm8udHJhamVjdG9yaWVzIildKQpnYygpCmBgYAoKIyMgTm9ybWFsaXphdGlvbgoKYGBge3J9Ck5ldXJvLnRyYWplY3RvcmllczwtIE5vcm1hbGl6ZURhdGEoTmV1cm8udHJhamVjdG9yaWVzLCBub3JtYWxpemF0aW9uLm1ldGhvZCA9ICJMb2dOb3JtYWxpemUiLCBzY2FsZS5mYWN0b3IgPSAxMDAwMCwgYXNzYXkgPSAiUk5BIikKYGBgCgpgYGB7cn0KTmV1cm8udHJhamVjdG9yaWVzIDwtIEZpbmRWYXJpYWJsZUZlYXR1cmVzKE5ldXJvLnRyYWplY3Rvcmllcywgc2VsZWN0aW9uLm1ldGhvZCA9ICJkaXNwIiwgbmZlYXR1cmVzID0gMzAwMCwgYXNzYXkgPSAiUk5BIikKYGBgCgojIyBQbG90IHNvbWUgZ2VuZXMgYWxvbmcgcHNldWRvdGltZQoKYGBge3IgZmlnLmRpbT1jKDksOCl9CnNvdXJjZSgiLi4vRnVuY3Rpb25zL2Z1bmN0aW9uc19HZW5lVHJlbmRzLlIiKQoKUGxvdC5HZW5lcy50cmVuZChTZXVyYXQuZGF0YT0gTmV1cm8udHJhamVjdG9yaWVzLAogICAgICAgICAgICAgICAgIGdyb3VwLmJ5ID0gIkxpbmVhZ2UiLAogICAgICAgICAgICAgICAgIGdlbmVzPSBjKCJHYXMxIiwiU294MiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk5ldXJvZzIiLCAiQnRnMiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlRicjEiLCAiTWFwdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlRycDczIiwgIkZveGcxIikpCmBgYAoKYGBge3IgZmlnLmRpbT1jKDksNil9ClBsb3QuR2VuZXMudHJlbmQoU2V1cmF0LmRhdGE9IE5ldXJvLnRyYWplY3RvcmllcywKICAgICAgICAgICAgICAgICBncm91cC5ieSA9ICJMaW5lYWdlIiwKICAgICAgICAgICAgICAgICBnZW5lcz0gYygiR21uYyIsICJNY2lkYXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJGb3hqMSIsICJUcnA3MyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkxoeDEiLCAiQ2RrbjFhIikpCmBgYAoKYGBge3IgZmlnLmRpbT1jKDksNSl9ClBsb3QuR2VuZXMudHJlbmQoU2V1cmF0LmRhdGE9IE5ldXJvLnRyYWplY3RvcmllcywKICAgICAgICAgICAgICAgICBncm91cC5ieSA9ICJMaW5lYWdlIiwKICAgICAgICAgICAgICAgICBnZW5lcz0gYygiTWtpNjciLCAiVG9wMmEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJIMmFmeCIsICJDZGtuMWMiKSkKYGBgCgojIFVzZSBtb25vY2xlMiB0byBtb2RlbCBnZW5lIGV4cHJlc3Npb24gYWxvbmcgY3ljbGluZyBheGlzCgojIyBJbml0aWFsaXplIGEgbW9ub2NsZSBvYmplY3QKCmBgYHtyfQojIFRyYW5zZmVyIG1ldGFkYXRhCm1ldGEuZGF0YSA8LSBkYXRhLmZyYW1lKEJhcmNvZGU9IE5ldXJvLnRyYWplY3RvcmllcyRCYXJjb2RlcywKICAgICAgICAgICAgICAgICAgICAgICAgTGluZWFnZT0gTmV1cm8udHJhamVjdG9yaWVzJExpbmVhZ2UsCiAgICAgICAgICAgICAgICAgICAgICAgIFBzZXVkb3RpbWU9IE5ldXJvLnRyYWplY3RvcmllcyRQc2V1ZG90aW1lLAogICAgICAgICAgICAgICAgICAgICAgICBQaGFzZT0gTmV1cm8udHJhamVjdG9yaWVzJFBoYXNlKQoKQW5ub3QuZGF0YSAgPC0gbmV3KCdBbm5vdGF0ZWREYXRhRnJhbWUnLCBkYXRhID0gbWV0YS5kYXRhKQoKIyBUcmFuc2ZlciBjb3VudHMgZGF0YQp2YXIuZ2VuZXMgPC0gTmV1cm8udHJhamVjdG9yaWVzW1siUk5BIl1dQHZhci5mZWF0dXJlcwpjb3VudC5kYXRhID0gZGF0YS5mcmFtZShnZW5lX3Nob3J0X25hbWUgPSByb3duYW1lcyhOZXVyby50cmFqZWN0b3JpZXNbWyJSTkEiXV1AZGF0YVt2YXIuZ2VuZXMsXSksCiAgICAgICAgICAgICAgICAgICAgICAgIHJvdy5uYW1lcyA9IHJvd25hbWVzKE5ldXJvLnRyYWplY3Rvcmllc1tbIlJOQSJdXUBkYXRhW3Zhci5nZW5lcyxdKSkKCmZlYXR1cmUuZGF0YSA8LSBuZXcoJ0Fubm90YXRlZERhdGFGcmFtZScsIGRhdGEgPSBjb3VudC5kYXRhKQoKIyBDcmVhdGUgdGhlIENlbGxEYXRhU2V0IG9iamVjdCBpbmNsdWRpbmcgdmFyaWFibGUgZ2VuZXMgb25seQpnYm1fY2RzIDwtIG5ld0NlbGxEYXRhU2V0KE5ldXJvLnRyYWplY3Rvcmllc1tbIlJOQSJdXUBjb3VudHNbdmFyLmdlbmVzLF0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgcGhlbm9EYXRhID0gQW5ub3QuZGF0YSwKICAgICAgICAgICAgICAgICAgICAgICAgICBmZWF0dXJlRGF0YSA9IGZlYXR1cmUuZGF0YSwKICAgICAgICAgICAgICAgICAgICAgICAgICBsb3dlckRldGVjdGlvbkxpbWl0ID0gMCwKICAgICAgICAgICAgICAgICAgICAgICAgICBleHByZXNzaW9uRmFtaWx5ID0gbmVnYmlub21pYWwoKSkKYGBgCgpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpnYm1fY2RzIDwtIGVzdGltYXRlU2l6ZUZhY3RvcnMoZ2JtX2NkcykKZ2JtX2NkcyA8LSBlc3RpbWF0ZURpc3BlcnNpb25zKGdibV9jZHMpCmdibV9jZHMgPC0gZGV0ZWN0R2VuZXMoZ2JtX2NkcywgbWluX2V4cHIgPSAwLjEpCmBgYAoKYGBge3J9CnJtKGxpc3QgPSBscygpWyFscygpICVpbiUgYygiTmV1cm8udHJhamVjdG9yaWVzIiwgImdibV9jZHMiLCAiR2VuZS5UcmVuZCIsICJQbG90LkdlbmVzLnRyZW5kIildKQpnYygpCmBgYAojIyBGaW5kIFBhbi1uZXVyb25hbCBnZW5lcwoKYGBge3J9CiMgU3BsaXQgcGFsbGlhbCBhbmQgc3VicGFsbGlhbCBjZWxscyBmb3IgZ2VuZSBleHByZXNzaW9uIGZpdHRpbmcKI1BhbGxpYWwgY2VsbHMKUGFsbGlhbGNlbGxzIDwtIE5ldXJvLnRyYWplY3Rvcmllc0BtZXRhLmRhdGEgJT4lCiAgICAgICAgICAgICAgICBmaWx0ZXIoTGluZWFnZSA9PSAiUGFsbGlhbF9uZXVyb25zIikgJT4lCiAgICAgICAgICAgICAgICBwdWxsKEJhcmNvZGVzKQoKIyBDYWphbC1SZXR6aXVzIGNlbGxzCkNSY2VsbHMgPC0gTmV1cm8udHJhamVjdG9yaWVzQG1ldGEuZGF0YSAlPiUKICAgICAgICAgICAgICAgICAgIGZpbHRlcihMaW5lYWdlID09ICJDYWphbC1SZXR6aXVzX25ldXJvbnMiKSAlPiUKICAgICAgICAgICAgICAgICAgIHB1bGwoQmFyY29kZXMpCmBgYAoKYGBge3J9CiMgV2UgZmlsdGVyLW91dCBnZW5lcyBkZXRlY3RlZCBpbiBsZXNzIHRoYW4gMjAwIG9yIDIwMCBjZWxscyBhbG9uZyBQYWxsaWFsIG9yIENSIGxpbmVhZ2VzCm51bS5jZWxscyA8LSBNYXRyaXg6OnJvd1N1bXMoTmV1cm8udHJhamVjdG9yaWVzQGFzc2F5cyRSTkFAY291bnRzWyxQYWxsaWFsY2VsbHNdID4gMCkKUGFsbGlhbC5leHByZXNzZWQgPC0gbmFtZXMoeCA9IG51bS5jZWxsc1t3aGljaCh4ID0gbnVtLmNlbGxzID49IDIwMCldKQoKbnVtLmNlbGxzIDwtIE1hdHJpeDo6cm93U3VtcyhOZXVyby50cmFqZWN0b3JpZXNAYXNzYXlzJFJOQUBjb3VudHNbLENSY2VsbHNdID4gMCkKQ1IuZXhwcmVzc2VkIDwtIG5hbWVzKHggPSBudW0uY2VsbHNbd2hpY2goeCA9IG51bS5jZWxscyA+PSAyMDApXSkKCklucHV0LmdlbmVzIDwtIHJvd25hbWVzKGdibV9jZHMpW3Jvd25hbWVzKGdibV9jZHMpICVpbiUgaW50ZXJzZWN0KFBhbGxpYWwuZXhwcmVzc2VkLCBDUi5leHByZXNzZWQpXQpgYGAKCgpgYGB7ciAgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGU9VFJVRX0KUGFsbGlhbC5nZW5lcyA8LSBkaWZmZXJlbnRpYWxHZW5lVGVzdChnYm1fY2RzW0lucHV0LmdlbmVzLCBQYWxsaWFsY2VsbHNdLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZ1bGxNb2RlbEZvcm11bGFTdHIgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlZHVjZWRNb2RlbEZvcm11bGFTdHIgPSAifjEiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvcmVzID0gcGFyYWxsZWw6OmRldGVjdENvcmVzKCkgLSAyKQoKI0ZpbHRlciBiYXNlZCBvbiBGRFIKUGFsbGlhbC5nZW5lcy5maWx0ZXJlZCA8LSBQYWxsaWFsLmdlbmVzICAlPiUgZmlsdGVyKHF2YWwgPCAxZS0zKQpgYGAKCmBgYHtyICBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBjYWNoZT1UUlVFfQpDUmNlbGxzLmdlbmVzIDwtIGRpZmZlcmVudGlhbEdlbmVUZXN0KGdibV9jZHNbSW5wdXQuZ2VuZXMsIENSY2VsbHNdLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZ1bGxNb2RlbEZvcm11bGFTdHIgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlZHVjZWRNb2RlbEZvcm11bGFTdHIgPSAifjEiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvcmVzID0gcGFyYWxsZWw6OmRldGVjdENvcmVzKCkgLSAyKQoKI0ZpbHRlciBiYXNlZCBvbiBGRFIKQ1JjZWxscy5nZW5lcy5maWx0ZXJlZCA8LSBDUmNlbGxzLmdlbmVzICAlPiUgZmlsdGVyKHF2YWwgPCAxZS0zKQpgYGAKCmBgYHtyfQpDb21tb24uZ2VuZXMgPC0gaW50ZXJzZWN0KFBhbGxpYWwuZ2VuZXMuZmlsdGVyZWQkZ2VuZV9zaG9ydF9uYW1lLCBDUmNlbGxzLmdlbmVzLmZpbHRlcmVkJGdlbmVfc2hvcnRfbmFtZSkKYGBgCgpgYGB7ciwgY2FjaGU9VFJVRX0KIyBTbW9vdGggZ2VuZXMgZXhwcmVzc2lvbiBhbG9uZyB0aGUgdHdvIHRyYWplY3RvcmllcwpuUG9pbnRzIDwtIDMwMAoKbmV3X2RhdGEgPSBsaXN0KCkKZm9yIChMaW5lYWdlIGluIHVuaXF1ZShwRGF0YShnYm1fY2RzKSRMaW5lYWdlKSl7CiAgbmV3X2RhdGFbW2xlbmd0aChuZXdfZGF0YSkgKyAxXV0gPSBkYXRhLmZyYW1lKFBzZXVkb3RpbWUgPSBzZXEobWluKHBEYXRhKGdibV9jZHMpJFBzZXVkb3RpbWUpLCBtYXgocERhdGEoZ2JtX2NkcykkUHNldWRvdGltZSksIGxlbmd0aC5vdXQgPSBuUG9pbnRzKSwgTGluZWFnZT1MaW5lYWdlKQp9CgpuZXdfZGF0YSA9IGRvLmNhbGwocmJpbmQsIG5ld19kYXRhKQoKIyBTbW9vdGggZ2VuZSBleHByZXNzaW9uCmN1cnZlX21hdHJpeCA8LSBnZW5TbW9vdGhDdXJ2ZXMoZ2JtX2Nkc1thcy5jaGFyYWN0ZXIoQ29tbW9uLmdlbmVzKSxdLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRyZW5kX2Zvcm11bGEgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykqTGluZWFnZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVsYXRpdmVfZXhwciA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmV3X2RhdGEgPSBuZXdfZGF0YSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb3Jlcz0gcGFyYWxsZWw6OmRldGVjdENvcmVzKCkgLSAyKQpgYGAKCmBgYHtyfQojIEV4dHJhY3QgZ2VuZXMgd2l0aCBwZXJzb24ncyBjb3IgPiAwLjYgYmV0d2VlbiB0aGUgMiB0cmFqZWN0b3JpZXMKClBhbGxpYWwuc21vb3RoZWQgPC0gc2NhbGUodChjdXJ2ZV9tYXRyaXhbLGMoMTozMDApXSkpICAjUGFsbGlhbCBwb2ludHMKQ1Iuc21vb3RoZWQgPC0gc2NhbGUodChjdXJ2ZV9tYXRyaXhbLGMoMzAxOjYwMCldKSkgI0NSIHBvaW50cwoKbWF0IDwtIGNvcihQYWxsaWFsLnNtb290aGVkLCBDUi5zbW9vdGhlZCwgbWV0aG9kID0gInBlYXJzb24iKQoKR2VuZS5Db3IgPC0gZGlhZyhtYXQpCmhpc3QoR2VuZS5Db3IsIGJyZWFrcyA9IDEwMCkKYWJsaW5lKHY9MC44LGNvbD1jKCJibHVlIikpCmBgYApgYGB7cn0KUGFuTmV1cm8uZ2VuZXMgPC0gbmFtZXMoR2VuZS5Db3JbR2VuZS5Db3IgPiAwLjhdKQpgYGAKCmBgYHtyfQojIE9yZGVyIHJvd3MgdXNpbmcgc2VyaWF0aW9uCmRzdCA8LSBhcy5kaXN0KCgxLWNvcihzY2FsZSh0KGN1cnZlX21hdHJpeFtQYW5OZXVyby5nZW5lcyxjKDYwMDozMDEpXSkpLCBtZXRob2QgPSAicGVhcnNvbiIpKSkKcm93LnNlciA8LSBzZXJpYXRlKGRzdCwgbWV0aG9kID0iTURTX2FuZ2xlIikgI01EU19hbmdsZQpnZW5lLm9yZGVyIDwtIFBhbk5ldXJvLmdlbmVzW2dldF9vcmRlcihyb3cuc2VyKV0KCmFubm8uY29sb3JzIDwtIGxpc3QobGluZWFnZSA9IGMoUGFsbGlhbD0iIzAyNmM5YSIsQ1I9IiNjYzM5MWIiKSkKCgpwaGVhdG1hcDo6cGhlYXRtYXAoY3VydmVfbWF0cml4W3JldihnZW5lLm9yZGVyKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjKDE6MzAwLCAzMDE6NjAwKV0sICNDUgogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2wgPSBkYXRhLmZyYW1lKGxpbmVhZ2UgPSByZXAoYygiUGFsbGlhbCIsIkNSIiksIGVhY2g9MzAwKSksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbG9ycyA9IGFubm8uY29sb3JzLAogICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBzaG93X3Jvd25hbWVzID0gVCwKICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDIsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDEwKSwKICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHNlcSgtMi41LDIuNSwgbGVuZ3RoLm91dCA9IDEwKSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKYGBgCgpgYGB7cn0Kcm0obGlzdCA9IGxzKClbIWxzKCkgJWluJSBjKCJOZXVyby50cmFqZWN0b3JpZXMiLCAiZ2JtX2NkcyIsICJHZW5lLlRyZW5kIiwgIlBsb3QuR2VuZXMudHJlbmQiKV0pCmdjKCkKYGBgCgojIyBUZXN0IGVhY2ggZ2VuZSB0cmVuZCBvdmVyIHBzZXVkb3RpbWUgc2NvcmUKCiMjIyBGaW5kIGdlbmVzIERFIGFsb25nIHBzZXVkb21hdHVyYXRpb24gYXhpcwoKYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGU9VFJVRX0KcHNldWRvLm1hdHVyYXRpb24uZGlmZiA8LSBkaWZmZXJlbnRpYWxHZW5lVGVzdChnYm1fY2RzW2ZEYXRhKGdibV9jZHMpJG51bV9jZWxsc19leHByZXNzZWQgPiA4MCxdLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZ1bGxNb2RlbEZvcm11bGFTdHIgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykqTGluZWFnZSIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVkdWNlZE1vZGVsRm9ybXVsYVN0ciA9ICJ+c20ubnMoUHNldWRvdGltZSwgZGYgPSAzKSIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29yZXMgPSBwYXJhbGxlbDo6ZGV0ZWN0Q29yZXMoKSAtIDIpCgpgYGAKCmBgYHtyfQojIEZpbHRlciBnZW5lcyBiYXNlZCBvbiBGRFIKcHNldWRvLm1hdHVyYXRpb24uZGlmZi5maWx0ZXJlZCA8LSBwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmICU+JSBmaWx0ZXIocXZhbCA8IDFlLTQwKQpgYGAKCiMjIERpcmVjdGlvbiBvZiB0aGUgREVHIGJ5IGNhbGN1bGF0aW5nIHRoZSBhcmVhIGJldHdlZW4gY3VydmVzIChBQkMpCgojIyMgU21vb3RoIGNvbW11biBnZW5lcyBhbG9uZyB0aGUgdHdvIHRyYWplY3RvcmllcwoKYGBge3IgU21vb3RoIGdlbmUgZXhwcmVzc2lvbiwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGU9VFJVRX0KIyBDcmVhdGUgYSBuZXcgcHNldWRvLURWIHZlY3RvciBvZiAzMDAgcG9pbnRzCm5Qb2ludHMgPC0gMzAwCgpuZXdfZGF0YSA9IGxpc3QoKQpmb3IgKExpbmVhZ2UgaW4gdW5pcXVlKHBEYXRhKGdibV9jZHMpJExpbmVhZ2UpKXsKICBuZXdfZGF0YVtbbGVuZ3RoKG5ld19kYXRhKSArIDFdXSA9IGRhdGEuZnJhbWUoUHNldWRvdGltZSA9IHNlcShtaW4ocERhdGEoZ2JtX2NkcykkUHNldWRvdGltZSksIG1heChwRGF0YShnYm1fY2RzKSRQc2V1ZG90aW1lKSwgbGVuZ3RoLm91dCA9IG5Qb2ludHMpLCBMaW5lYWdlPUxpbmVhZ2UpCn0KCm5ld19kYXRhID0gZG8uY2FsbChyYmluZCwgbmV3X2RhdGEpCgojIFNtb290aCBnZW5lIGV4cHJlc3Npb24KRGlmZi5jdXJ2ZV9tYXRyaXggPC0gZ2VuU21vb3RoQ3VydmVzKGdibV9jZHNbYXMuY2hhcmFjdGVyKHBzZXVkby5tYXR1cmF0aW9uLmRpZmYuZmlsdGVyZWQkZ2VuZV9zaG9ydF9uYW1lKSxdLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRyZW5kX2Zvcm11bGEgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykqTGluZWFnZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVsYXRpdmVfZXhwciA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmV3X2RhdGEgPSBuZXdfZGF0YSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb3Jlcz0gcGFyYWxsZWw6OmRldGVjdENvcmVzKCkgLSAyKQpgYGAKCiMjIyBDb21wdXRlIHRoZSBBQkMgZm9yIGVhY2ggZ2VuZQoKYGBge3IgQ29tcHV0ZSB0aGUgQUJDfQojIEV4dHJhY3QgbWF0cml4IGNvbnRhaW5pbmcgc21vb3RoZWQgY3VydmVzIGZvciBlYWNoIGxpbmVhZ2VzClBhbF9jdXJ2ZV9tYXRyaXggPC0gRGlmZi5jdXJ2ZV9tYXRyaXhbLCAxOm5Qb2ludHNdICNQYWxsaWFsIHBvaW50cwpDUl9jdXJ2ZV9tYXRyaXggPC0gRGlmZi5jdXJ2ZV9tYXRyaXhbLCAoblBvaW50cyArIDEpOigyICogblBvaW50cyldICNDUiBwb2ludHMKCiMgRGlyZWN0aW9uIG9mIHRoZSBjb21wYXJpc29uIDogcG9zdGl2ZSBBQkNzIDw9PiBVcHJlZ3VsYXRlZCBpbiBDUiBsaW5lYWdlCkFCQ3NfcmVzIDwtIENSX2N1cnZlX21hdHJpeCAtIFBhbF9jdXJ2ZV9tYXRyaXgKCiMgQXZlcmFnZSBsb2dGQyBiZXR3ZWVuIHRoZSAyIGN1cnZlcwpJTFJfcmVzIDwtIGxvZzIoQ1JfY3VydmVfbWF0cml4LyAoUGFsX2N1cnZlX21hdHJpeCArIDAuMSkpIAogIApBQkNzX3JlcyA8LSBhcHBseShBQkNzX3JlcywgMSwgZnVuY3Rpb24oeCwgblBvaW50cykgewogICAgICAgICAgICAgICAgICBhdmdfZGVsdGFfeCA8LSAoeFsxOihuUG9pbnRzIC0gMSldICsgeFsyOihuUG9pbnRzKV0pLzIKICAgICAgICAgICAgICAgICAgc3RlcCA8LSAoMTAwLyhuUG9pbnRzIC0gMSkpCiAgICAgICAgICAgICAgICAgIHJlcyA8LSByb3VuZChzdW0oYXZnX2RlbHRhX3ggKiBzdGVwKSwgMykKICAgICAgICAgICAgICAgICAgcmV0dXJuKHJlcyl9LAogICAgICAgICAgICAgICAgICBuUG9pbnRzID0gblBvaW50cykgIyBDb21wdXRlIHRoZSBhcmVhIGJlbG93IHRoZSBjdXJ2ZQogIApBQkNzX3JlcyA8LSBjYmluZChBQkNzX3JlcywgSUxSX3Jlc1ssbmNvbChJTFJfcmVzKV0pCmNvbG5hbWVzKEFCQ3NfcmVzKTwtIGMoIkFCQ3MiLCAiRW5kcG9pbnRfSUxSIikKCiMgSW1wb3J0IEFCQyB2YWx1ZXMgaW50byB0aGUgREUgdGVzdCByZXN1bHRzIHRhYmxlCnBzZXVkby5tYXR1cmF0aW9uLmRpZmYuZmlsdGVyZWQgPC0gY2JpbmQocHNldWRvLm1hdHVyYXRpb24uZGlmZi5maWx0ZXJlZFssMTo0XSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBBQkNzX3JlcywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmLmZpbHRlcmVkWyw1OjZdKQpgYGAKCiMjIENhamFsLVJldHppdXMgY2VsbHMgc3BlY2lmaWMgdHJhamVjdG9yeSBhbmFseXNpcwoKYGBge3J9CiMgRXh0cmFjdCBDYWphbC1SZXR6aXVzIGV4cHJlc3NlZCBnZW5lcwpDUi5yZXMgPC0gYXMuZGF0YS5mcmFtZShwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmLmZpbHRlcmVkW3BzZXVkby5tYXR1cmF0aW9uLmRpZmYuZmlsdGVyZWQkQUJDcyA+IDAsXSkKQ1IuZ2VuZXMgPC0gcm93Lm5hbWVzKENSLnJlcykKCkNSX2N1cnZlX21hdHJpeCA8LSBDUl9jdXJ2ZV9tYXRyaXhbQ1IuZ2VuZXMsIF0KYGBgCgojIyMgR2VuZSBleHByZXNzaW9uIHByb2ZpbGVzIGFsb25nIHRoZSB0cmFqZWN0b3J5CgpgYGB7cn0KIyMgQ2x1c3RlciBnZW5lIGJ5IGV4cHJlc3Npb24gcHJvZmlsZXMKUHNldWRvdGltZS5nZW5lcy5jbHVzdGVycyA8LSBjbHVzdGVyOjpwYW0oYXMuZGlzdCgoMSAtIGNvcihNYXRyaXg6OnQoQ1JfY3VydmVfbWF0cml4KSxtZXRob2QgPSAicGVhcnNvbiIpKSksIGs9IDUpCgpDUi5HZW5lLmR5bmFtaXF1ZSA8LSBkYXRhLmZyYW1lKEdlbmU9IG5hbWVzKFBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMkY2x1c3RlcmluZyksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFdhdmVzPSBQc2V1ZG90aW1lLmdlbmVzLmNsdXN0ZXJzJGNsdXN0ZXJpbmcsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEdlbmUuQ2x1c3RlcnMgPSBQc2V1ZG90aW1lLmdlbmVzLmNsdXN0ZXJzJGNsdXN0ZXJpbmcsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHEudmFsID0gQ1IucmVzJHF2YWwsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEFCQ3M9IENSLnJlcyRBQkNzCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICkgJT4lIGFycmFuZ2UoR2VuZS5DbHVzdGVycykKCnJvdy5uYW1lcyhDUi5HZW5lLmR5bmFtaXF1ZSkgPC0gQ1IuR2VuZS5keW5hbWlxdWUkR2VuZQpDUi5HZW5lLmR5bmFtaXF1ZSRHZW5lLkNsdXN0ZXJzIDwtIHBhc3RlMCgiQ2x1c3QuIiwgQ1IuR2VuZS5keW5hbWlxdWUkR2VuZS5DbHVzdGVycykKYGBgCgpgYGB7ciBDUiBnZW5lIGhlYXRtYXAsIGZpZy5kaW09Yyg5LCA1KX0KIyBPcmRlciB0aGUgcm93cyB1c2luZyBzZXJpYXRpb24KZHN0IDwtIGFzLmRpc3QoKDEtY29yKHNjYWxlKHQoQ1JfY3VydmVfbWF0cml4KSksIG1ldGhvZCA9ICJwZWFyc29uIikpKQpyb3cuc2VyIDwtIHNlcmlhdGlvbjo6c2VyaWF0ZShkc3QsIG1ldGhvZCA9IlIyRSIpICMiUjJFIiAjVFNQICMiR1ciICJHV193YXJkIgpnZW5lLm9yZGVyIDwtIHJvd25hbWVzKENSX2N1cnZlX21hdHJpeFtnZXRfb3JkZXIocm93LnNlciksXSkKCiMgU2V0IGFubm90YXRpb24gY29sb3JzCnBhbCA8LSB3ZXNfcGFsZXR0ZSgiRGFyamVlbGluZzEiKQphbm5vLmNvbG9ycyA8LSBsaXN0KGxpbmVhZ2UgPSBjKFBhbGxpYWxfbmV1cm9ucz0iIzAyNmM5YSIsIENhamFsX1JldHppdXM9IiNjYzM5MWIiKSwKICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gYyhDbHVzdC4xID1wYWxbMV0gLCBDbHVzdC4yPXBhbFsyXSwgQ2x1c3QuMz1wYWxbM10sIENsdXN0LjQ9cGFsWzRdLCBDbHVzdC41PXBhbFs1XSkpCgoKcGhlYXRtYXA6OnBoZWF0bWFwKERpZmYuY3VydmVfbWF0cml4W2dlbmUub3JkZXIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYygzMDA6MSwjUGFsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMzAxOjYwMCldLCAjQ1IKICAgICAgICAgICAgICAgICAgIHNjYWxlID0gInJvdyIsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9jb2xzID0gRiwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fcm93ID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGRwbHlyOjpzZWxlY3QoR2VuZS5DbHVzdGVycyksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbCA9IGRhdGEuZnJhbWUobGluZWFnZSA9IHJlcChjKCJQYWxsaWFsX25ldXJvbnMiLCJDYWphbF9SZXR6aXVzIiksIGVhY2g9MzAwKSksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbG9ycyA9IGFubm8uY29sb3JzLAogICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBzaG93X3Jvd25hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDgsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDkpLAogICAgICAgICAgICAgICAgICAgYnJlYWtzID0gc2VxKC0yLjUsMi41LCBsZW5ndGgub3V0ID0gOSksCiAgICAgICAgICAgICAgICAgICBtYWluID0gIiIpCmBgYAoKV2UgbWFudWFsbHkgY29ycmVjdCB0aGUgcmVvcmRlcmluZyBzbyBnZW5lcyBhcmUgYWxpZ25lZCBmcm9tIHRvcCBsZWZ0IHRvIGJvdHRvbSByaWd0aAoKYGBge3IgZmlnLmRpbT1jKDksIDUpfQpwaGVhdG1hcDo6cGhlYXRtYXAoRGlmZi5jdXJ2ZV9tYXRyaXhbZ2VuZS5vcmRlciwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjKDMwMDoxLCNQYWwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAzMDE6NjAwKV0sICNDUgogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZHBseXI6OnNlbGVjdChHZW5lLkNsdXN0ZXJzKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sID0gZGF0YS5mcmFtZShsaW5lYWdlID0gcmVwKGMoIlBhbGxpYWxfbmV1cm9ucyIsIkNhamFsX1JldHppdXMiKSwgZWFjaD0zMDApKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICBzaG93X2NvbG5hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgZm9udHNpemVfcm93ID0gOCwKICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIHZpcmlkaXM6OnZpcmlkaXMoOSksCiAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoLTIuNSwyLjUsIGxlbmd0aC5vdXQgPSA5KSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKYGBgCgoKYGBge3IgZmlnLmRpbT1jKDksIDUpfQphbm5vLmNvbG9ycyA8LSBsaXN0KENlbGwuc3RhdGUgPSBjKEN5Y2xpbmdfUkc9IiMwNDZjOWEiLCBEaWZmZXJlbnRpYXRpbmdfY2VsbHM9IiNlYmNiMmUiKSwKICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gYyhDbHVzdC4xID1wYWxbMV0gLCBDbHVzdC4yPXBhbFsyXSwgQ2x1c3QuMz1wYWxbM10sIENsdXN0LjQ9cGFsWzRdLCBDbHVzdC41PXBhbFs1XSkpCgpjb2wuYW5ubyA8LSBkYXRhLmZyYW1lKENlbGwuc3RhdGUgPSByZXAoYygiQ3ljbGluZ19SRyIsIkRpZmZlcmVudGlhdGluZ19jZWxscyIpLCBjKDEwMCwyMDApKSkKcm93bmFtZXMoY29sLmFubm8pIDwtIDMwMTo2MDAKCnBoZWF0bWFwOjpwaGVhdG1hcChDUl9jdXJ2ZV9tYXRyaXhbZ2VuZS5vcmRlcixdLAogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZHBseXI6OnNlbGVjdChHZW5lLkNsdXN0ZXJzKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sID0gY29sLmFubm8sCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbG9ycyA9IGFubm8uY29sb3JzLAogICAgICAgICAgICAgICAgICAgZ2Fwc19jb2wgPSAxMDAsCiAgICAgICAgICAgICAgICAgICBzaG93X2NvbG5hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgZm9udHNpemVfcm93ID0gOCwKICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIHZpcmlkaXM6OnZpcmlkaXMoOSksCiAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoLTIuNSwyLjUsIGxlbmd0aC5vdXQgPSA5KSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKCmBgYAoKYGBge3J9CmRpZmYuc3RhdGUgPC0gTmV1cm8udHJhamVjdG9yaWVzQG1ldGEuZGF0YSAlPiUKICAgICAgICAgICAgICBmaWx0ZXIoTGluZWFnZSA9PSAgIkNhamFsLVJldHppdXNfbmV1cm9ucyIpICU+JQogICAgICAgICAgICAgIHNlbGVjdCgiQVBfc2lnbmF0dXJlMSIsICJCUF9zaWduYXR1cmUxIiwgIkVOX3NpZ25hdHVyZTEiLCAiTE5fc2lnbmF0dXJlMSIsICJQc2V1ZG90aW1lIikKCkFQLmxvZXNzIDwtIGxvZXNzKEFQX3NpZ25hdHVyZTEgfiBQc2V1ZG90aW1lLCBkaWZmLnN0YXRlKQpBUC5zbW9vdGggPC0gcHJlZGljdChBUC5sb2VzcywKICAgICAgICAgICAgICAgICAgICAgc2VxKDAuMDEsMS41LCBsZW5ndGgub3V0PSAzMDApKQoKQlAubG9lc3MgPC0gbG9lc3MoQlBfc2lnbmF0dXJlMSB+IFBzZXVkb3RpbWUsIGRpZmYuc3RhdGUpCkJQLnNtb290aCA8LSBwcmVkaWN0KEJQLmxvZXNzLAogICAgICAgICAgICAgICAgICAgICBzZXEoMC4wMSwxLjUsIGxlbmd0aC5vdXQ9IDMwMCkpCgpFTi5sb2VzcyA8LSBsb2VzcyhFTl9zaWduYXR1cmUxIH4gUHNldWRvdGltZSwgZGlmZi5zdGF0ZSkKRU4uc21vb3RoIDwtIHByZWRpY3QoRU4ubG9lc3MsCiAgICAgICAgICAgICAgICAgICAgIHNlcSgwLjAxLDEuNSwgbGVuZ3RoLm91dD0gMzAwKSkKCkxOLmxvZXNzIDwtIGxvZXNzKExOX3NpZ25hdHVyZTEgfiBQc2V1ZG90aW1lLCBkaWZmLnN0YXRlKQpMTi5zbW9vdGggPC0gcHJlZGljdChMTi5sb2VzcywKICAgICAgICAgICAgICAgICAgICAgc2VxKDAuMDEsMS41LCBsZW5ndGgub3V0PSAzMDApKQoKU21vb3RoZWQuc3RhdGVzIDwtIGNiaW5kKEFQLnNtb290aCwgQlAuc21vb3RoLCBFTi5zbW9vdGgsIExOLnNtb290aCkKYGBgCgpgYGB7ciwgZmlnLnNob3c9ImhpZGUifQpoZWF0bWFwLnN0YXRlcyA8LSBwaGVhdG1hcDo6cGhlYXRtYXAoYXMuZGF0YS5mcmFtZSh0KFNtb290aGVkLnN0YXRlcykpLAogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgZ2Fwc19jb2wgPSAxMDAsCiAgICAgICAgICAgICAgICAgICBnYXBzX3JvdyA9IGMoMSwyLDMpLAogICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBzaG93X3Jvd25hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDgsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICByZXYoY29sb3JSYW1wUGFsZXR0ZShicmV3ZXIucGFsKG49IDgsIG5hbWUgPSAiUmRCdSIpKSgxMDApKSwKICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHNlcSgtMSwxLCBsZW5ndGgub3V0ID0gMTAwKSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKCmhlYXRtYXAuZ2VuZSA8LSBwaGVhdG1hcDo6cGhlYXRtYXAoQ1JfY3VydmVfbWF0cml4W2dlbmUub3JkZXIsXSwKICAgICAgICAgICAgICAgICAgIHNjYWxlID0gInJvdyIsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9jb2xzID0gRiwKICAgICAgICAgICAgICAgICAgIGdhcHNfY29sID0gMTAwLAogICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBzaG93X3Jvd25hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDgsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDkpLAogICAgICAgICAgICAgICAgICAgYnJlYWtzID0gc2VxKC0yLjUsMi41LCBsZW5ndGgub3V0ID0gOSksCiAgICAgICAgICAgICAgICAgICBtYWluID0gIiIpCmBgYAoKCmBgYHtyfQpjb3dwbG90OjpwbG90X2dyaWQoaGVhdG1hcC5zdGF0ZXMkZ3RhYmxlLCBoZWF0bWFwLmdlbmUkZ3RhYmxlLAogICAgICAgICAgICAgICAgICAgbmNvbCA9IDEsCiAgICAgICAgICAgICAgICAgICBhbGlnbiA9ICJ2IiwKICAgICAgICAgICAgICAgICAgIHJlbF9oZWlnaHRzID0gYygxLDMpLAogICAgICAgICAgICAgICAgICAgZ3JlZWR5ID0gVCkKYGBgCgojIyMgR2VuZSBjbHVzdGVyIHRyZW5kCgpgYGB7ciBmaWcuZGltPWMoOSw2KSwgY2FjaGU9VFJVRX0Kc291cmNlKCIuLi9GdW5jdGlvbnMvZnVuY3Rpb25zX0dlbmVDbHVzdGVyVHJlbmQuUiIpCgpQbG90LmNsdXN0LnRyZW5kcyhOZXVyby50cmFqZWN0b3JpZXMsCiAgICAgICAgICAgICAgICAgICBMaW5lYWdlID0gIkNhamFsLVJldHppdXNfbmV1cm9ucyIsCiAgICAgICAgICAgICAgICAgICBXaGljaC5jbHVzdGVyID0gMTo1LAogICAgICAgICAgICAgICAgICAgY2x1c3QubGlzdCA9IFBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMkY2x1c3RlcmluZywKICAgICAgICAgICAgICAgICAgIFNtb290aC5tZXRob2QgPSAiZ2FtIikKYGBgCgojIyMgR08gdGVybSBlbnJpY2htZW50IGluIGdlbmUgY2x1c3RlcnMgdXNpbmcgZ3Byb2ZpbGVyMgoKYGBge3J9CkNSLmdvc3RyZXMgPC0gZ29zdChxdWVyeSA9IGxpc3QoIkNsdXN0LjEiID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGZpbHRlcihHZW5lLkNsdXN0ZXJzID09ICJDbHVzdC4xIikgJT4lIHB1bGwoR2VuZSkgJT4lIGFzLmNoYXJhY3RlcigpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICJDbHVzdC4yIiA9IENSLkdlbmUuZHluYW1pcXVlICU+JSBmaWx0ZXIoR2VuZS5DbHVzdGVycyA9PSAiQ2x1c3QuMiIpICU+JSBwdWxsKEdlbmUpICU+JSBhcy5jaGFyYWN0ZXIoKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiQ2x1c3QuMyIgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZmlsdGVyKEdlbmUuQ2x1c3RlcnMgPT0gIkNsdXN0LjMiKSAlPiUgcHVsbChHZW5lKSAlPiUgYXMuY2hhcmFjdGVyKCksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkNsdXN0LjQiID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGZpbHRlcihHZW5lLkNsdXN0ZXJzID09ICJDbHVzdC40IikgJT4lIHB1bGwoR2VuZSkgJT4lIGFzLmNoYXJhY3RlcigpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICJDbHVzdC41IiA9IENSLkdlbmUuZHluYW1pcXVlICU+JSBmaWx0ZXIoR2VuZS5DbHVzdGVycyA9PSAiQ2x1c3QuNSIpICU+JSBwdWxsKEdlbmUpICU+JSBhcy5jaGFyYWN0ZXIoKSksCiAgICAgICAgICAgICAgICBvcmdhbmlzbSA9ICJtbXVzY3VsdXMiLCBvcmRlcmVkX3F1ZXJ5ID0gRiwgCiAgICAgICAgICAgICAgICBtdWx0aV9xdWVyeSA9IEYsIHNpZ25pZmljYW50ID0gVCwgZXhjbHVkZV9pZWEgPSBULCAKICAgICAgICAgICAgICAgIG1lYXN1cmVfdW5kZXJyZXByZXNlbnRhdGlvbiA9IEYsIGV2Y29kZXMgPSBULCAKICAgICAgICAgICAgICAgIHVzZXJfdGhyZXNob2xkID0gMC4wNSwgY29ycmVjdGlvbl9tZXRob2QgPSAiZmRyIiwgCiAgICAgICAgICAgICAgICBkb21haW5fc2NvcGUgPSAiYW5ub3RhdGVkIiwgY3VzdG9tX2JnID0gTlVMTCwgCiAgICAgICAgICAgICAgICBudW1lcmljX25zID0gIiIsIHNvdXJjZXMgPSBjKCJHTzpNRiIsICJHTzpCUCIpLCBhc19zaG9ydF9saW5rID0gRikKCndyaXRlLnRhYmxlKGFwcGx5KENSLmdvc3RyZXMkcmVzdWx0LDIsYXMuY2hhcmFjdGVyKSwKICAgICAgICAgICAgIktPX0NSX0dPX3Jlcy1ieS13YXZlcy5jc3YiLCBzZXAgPSAiOyIsIHF1b3RlID0gRiwgcm93Lm5hbWVzID0gRikKYGBgCgpgYGB7cn0KRE5BX2RhbWFnZV9HT3Rlcm0gPC0gQ1IuZ29zdHJlcyRyZXN1bHRbQ1IuZ29zdHJlcyRyZXN1bHQkdGVybV9pZCAlaW4lIGMoIkdPOjAwMDg2MzAiLCAiR086MDAzMDMzMCIsICJHTzowMDMxNTcxIiwgIkdPOjAwMDY5NzQiLCAiR086MDAwNjk3NyIsIkdPOjAwMzM1NTQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiR086MDA0NDc3MyIsICJHTzowMDQyNzcxIiwgIkdPOjAwNDI3NzAiLCAiR086MjAwMTAyMSIsICJHTzoxOTAyMjI5IiksXQoKRE5BX2RhbWFnZV9HT3Rlcm1bLGMoOSwxLDIsMyw1LDYsNywxMSldCmBgYAoKIyMjIEdvIHRlcm0gb24gYWxsIENSIGdlbmVzCgpgYGB7cn0KQ1IuZ29zdHJlcyA8LSBnb3N0KHF1ZXJ5ID0gYXMuY2hhcmFjdGVyKENSLkdlbmUuZHluYW1pcXVlJEdlbmUpLAogICAgICAgICAgICAgICAgb3JnYW5pc20gPSAibW11c2N1bHVzIiwgb3JkZXJlZF9xdWVyeSA9IEYsIAogICAgICAgICAgICAgICAgbXVsdGlfcXVlcnkgPSBGLCBzaWduaWZpY2FudCA9IFQsIGV4Y2x1ZGVfaWVhID0gVCwgCiAgICAgICAgICAgICAgICBtZWFzdXJlX3VuZGVycmVwcmVzZW50YXRpb24gPSBGLCBldmNvZGVzID0gVCwgCiAgICAgICAgICAgICAgICB1c2VyX3RocmVzaG9sZCA9IDAuMDUsIGNvcnJlY3Rpb25fbWV0aG9kID0gImZkciIsIAogICAgICAgICAgICAgICAgZG9tYWluX3Njb3BlID0gImFubm90YXRlZCIsIGN1c3RvbV9iZyA9IE5VTEwsIAogICAgICAgICAgICAgICAgbnVtZXJpY19ucyA9ICIiLCBzb3VyY2VzID0gYygiR086TUYiLCAiR086QlAiKSwgYXNfc2hvcnRfbGluayA9IEYpCgp3cml0ZS50YWJsZShhcHBseShDUi5nb3N0cmVzJHJlc3VsdCwyLGFzLmNoYXJhY3RlciksCiAgICAgICAgICAgICJLT0NSX0dPX3Jlcy5jc3YiLCBzZXAgPSAiOyIsIHF1b3RlID0gRiwgcm93Lm5hbWVzID0gRikKYGBgCgoKYGBge3J9CkROQV9kYW1hZ2VfR090ZXJtIDwtIENSLmdvc3RyZXMkcmVzdWx0W0NSLmdvc3RyZXMkcmVzdWx0JHRlcm1faWQgJWluJSBjKCJHTzowMDA4NjMwIiwgIkdPOjAwMzAzMzAiLCAiR086MDAzMTU3MSIsICJHTzowMDA2OTc0IiwgIkdPOjAwMDY5NzciLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiR086MDA0NDc3MyIsICJHTzowMDQyNzcxIiwgIkdPOjAwNDI3NzAiLCAiR086MjAwMTAyMSIsICJHTzoxOTAyMjI5IiksXQoKRE5BX2RhbWFnZV9HT3Rlcm1bLGMoMSwyLDMsNSw2LDcsMTEpXQpgYGAKCiMjIyBJbnRlcnNlY3Rpb24gd2l0aCBDaFAgZHluYW1pY2FseSBleHByZXNzZWQgZ2VuZXMKCmBgYHtyfQpDaFBfZHluYW1pY19nZW5lcyA8LSByZWFkLnRhYmxlKCIuLi9DaG9yb2lkUGxleHVzX3RyYWplY3RvcnkvQ2hQLkdlbmUuZHluYW1pcXVlLmNzdiIsIHNlcCA9ICI7IiwgaGVhZGVyID0gVCwgcm93Lm5hbWVzID0gMSkKYGBgCgoKYGBge3J9CkNSX0NoUF9jb21tb25fZ2VuZXMgPC0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGZpbHRlcihHZW5lICVpbiUgQ2hQX2R5bmFtaWNfZ2VuZXMkR2VuZSkKYGBgCgpgYGB7cn0KZ2VuZS5vcmRlcjIgPC0gZ2VuZS5vcmRlcltnZW5lLm9yZGVyICVpbiUgQ1JfQ2hQX2NvbW1vbl9nZW5lcyRHZW5lXQoKcGhlYXRtYXA6OnBoZWF0bWFwKENSX2N1cnZlX21hdHJpeFtnZW5lLm9yZGVyMixdLAogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgI2Fubm90YXRpb25fcm93ID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGRwbHlyOjpzZWxlY3QoR2VuZS5DbHVzdGVycyksCiAgICAgICAgICAgICAgICAgICAjYW5ub3RhdGlvbl9jb2wgPSBjb2wuYW5ubywKICAgICAgICAgICAgICAgICAgICNhbm5vdGF0aW9uX2NvbG9ycyA9IGFubm8uY29sb3JzLAogICAgICAgICAgICAgICAgICAgZ2Fwc19jb2wgPSAxMDAsCiAgICAgICAgICAgICAgICAgICBzaG93X2NvbG5hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgZm9udHNpemVfcm93ID0gOCwKICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIHZpcmlkaXM6OnZpcmlkaXMoOSksCiAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoLTIuNSwyLjUsIGxlbmd0aC5vdXQgPSA5KSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKYGBgCmBgYHtyfQpDUl9DaFBfY29tbW9uLmdvc3RyZXMgPC0gZ29zdChxdWVyeSA9IGxpc3QoIkNsdXN0LjEiID0gQ1JfQ2hQX2NvbW1vbl9nZW5lcyAlPiUgZmlsdGVyKEdlbmUuQ2x1c3RlcnMgPT0gIkNsdXN0LjEiKSAlPiUgcHVsbChHZW5lKSAlPiUgYXMuY2hhcmFjdGVyKCksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkNsdXN0LjIiID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGZpbHRlcihHZW5lLkNsdXN0ZXJzID09ICJDbHVzdC4yIikgJT4lIHB1bGwoR2VuZSkgJT4lIGFzLmNoYXJhY3RlcigpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICJDbHVzdC4zIiA9IENSLkdlbmUuZHluYW1pcXVlICU+JSBmaWx0ZXIoR2VuZS5DbHVzdGVycyA9PSAiQ2x1c3QuMyIpICU+JSBwdWxsKEdlbmUpICU+JSBhcy5jaGFyYWN0ZXIoKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiQ2x1c3QuNCIgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZmlsdGVyKEdlbmUuQ2x1c3RlcnMgPT0gIkNsdXN0LjQiKSAlPiUgcHVsbChHZW5lKSAlPiUgYXMuY2hhcmFjdGVyKCksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkNsdXN0LjUiID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGZpbHRlcihHZW5lLkNsdXN0ZXJzID09ICJDbHVzdC41IikgJT4lIHB1bGwoR2VuZSkgJT4lIGFzLmNoYXJhY3RlcigpKSwKICAgICAgICAgICAgICAgIG9yZ2FuaXNtID0gIm1tdXNjdWx1cyIsIG9yZGVyZWRfcXVlcnkgPSBGLCAKICAgICAgICAgICAgICAgIG11bHRpX3F1ZXJ5ID0gRiwgc2lnbmlmaWNhbnQgPSBULCBleGNsdWRlX2llYSA9IFQsIAogICAgICAgICAgICAgICAgbWVhc3VyZV91bmRlcnJlcHJlc2VudGF0aW9uID0gRiwgZXZjb2RlcyA9IFQsIAogICAgICAgICAgICAgICAgdXNlcl90aHJlc2hvbGQgPSAwLjA1LCBjb3JyZWN0aW9uX21ldGhvZCA9ICJmZHIiLCAKICAgICAgICAgICAgICAgIGRvbWFpbl9zY29wZSA9ICJhbm5vdGF0ZWQiLCBjdXN0b21fYmcgPSBOVUxMLCAKICAgICAgICAgICAgICAgIG51bWVyaWNfbnMgPSAiIiwgc291cmNlcyA9IGMoIkdPOk1GIiwgIkdPOkJQIiksIGFzX3Nob3J0X2xpbmsgPSBGKQoKd3JpdGUudGFibGUoYXBwbHkoQ1JfQ2hQX2NvbW1vbi5nb3N0cmVzJHJlc3VsdCwyLGFzLmNoYXJhY3RlciksCiAgICAgICAgICAgICJLT19DUl9DaFBfY29tbW9uX0dPX3Jlcy1ieS13YXZlcy5jc3YiLCBzZXAgPSAiOyIsIHF1b3RlID0gRiwgcm93Lm5hbWVzID0gRikKYGBgCgpgYGB7cn0KRE5BX2RhbWFnZV9HT3Rlcm0gPC0gQ1JfQ2hQX2NvbW1vbi5nb3N0cmVzJHJlc3VsdFtDUl9DaFBfY29tbW9uLmdvc3RyZXMkcmVzdWx0JHRlcm1faWQgJWluJSBjKCJHTzowMDA4NjMwIiwgIkdPOjAwMzAzMzAiLCAiR086MDAzMTU3MSIsICJHTzowMDA2OTc0IiwgIkdPOjAwMDY5NzciLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiR086MDA0NDc3MyIsICJHTzowMDQyNzcxIiwgIkdPOjAwNDI3NzAiLCAiR086MjAwMTAyMSIsICJHTzoxOTAyMjI5IiksXQoKRE5BX2RhbWFnZV9HT3Rlcm1bLGMoMSwyLDMsNSw2LDcsMTEpXQpgYGAKCmBgYHtyfQpDUl9DaFBfY29tbW9uLmdvc3RyZXMgPC0gZ29zdChxdWVyeSA9IGFzLmNoYXJhY3RlcihDUl9DaFBfY29tbW9uX2dlbmVzJEdlbmUpLAogICAgICAgICAgICAgICAgb3JnYW5pc20gPSAibW11c2N1bHVzIiwgb3JkZXJlZF9xdWVyeSA9IEYsIAogICAgICAgICAgICAgICAgbXVsdGlfcXVlcnkgPSBGLCBzaWduaWZpY2FudCA9IFQsIGV4Y2x1ZGVfaWVhID0gVCwgCiAgICAgICAgICAgICAgICBtZWFzdXJlX3VuZGVycmVwcmVzZW50YXRpb24gPSBGLCBldmNvZGVzID0gVCwgCiAgICAgICAgICAgICAgICB1c2VyX3RocmVzaG9sZCA9IDAuMDUsIGNvcnJlY3Rpb25fbWV0aG9kID0gImZkciIsIAogICAgICAgICAgICAgICAgZG9tYWluX3Njb3BlID0gImFubm90YXRlZCIsIGN1c3RvbV9iZyA9IE5VTEwsIAogICAgICAgICAgICAgICAgbnVtZXJpY19ucyA9ICIiLCBzb3VyY2VzID0gYygiR086TUYiLCAiR086QlAiKSwgYXNfc2hvcnRfbGluayA9IEYpCgp3cml0ZS50YWJsZShhcHBseShDUl9DaFBfY29tbW9uLmdvc3RyZXMkcmVzdWx0LDIsYXMuY2hhcmFjdGVyKSwKICAgICAgICAgICAgIktPX0NSX0NoUF9jb21tb25fR09fcmVzX2FsbC5jc3YiLCBzZXAgPSAiOyIsIHF1b3RlID0gRiwgcm93Lm5hbWVzID0gRikKYGBgCgoKIyMgUGFsbGlhbCBuZXVyb25zIHRyYWplY3RvcnkgYW5hbHlzaXMKCmBgYHtyfQojIEV4dHJhY3QgUGFsbGlhbCBuZXVyb25zIHRyYWplY3RvcnkgZ2VuZXMKUGFsLnJlcyA8LSBhcy5kYXRhLmZyYW1lKHBzZXVkby5tYXR1cmF0aW9uLmRpZmYuZmlsdGVyZWRbcHNldWRvLm1hdHVyYXRpb24uZGlmZi5maWx0ZXJlZCRBQkNzIDwgMCxdKQpQYWwuZ2VuZXMgPC0gcm93Lm5hbWVzKFBhbC5yZXMpCgpQYWxfY3VydmVfbWF0cml4IDwtIFBhbF9jdXJ2ZV9tYXRyaXhbUGFsLmdlbmVzLCBdCmBgYAoKIyMjIEdlbmUgZXhwcmVzc2lvbiBwcm9maWxlcyBhbG9uZyB0aGUgdHJhamVjdG9yeQoKYGBge3J9CiMjIENsdXN0ZXIgZ2VuZSBieSBleHByZXNzaW9uIHByb2ZpbGVzClBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMgPC0gY2x1c3Rlcjo6cGFtKGFzLmRpc3QoKDEgLSBjb3IoTWF0cml4Ojp0KFBhbF9jdXJ2ZV9tYXRyaXgpLG1ldGhvZCA9ICJwZWFyc29uIikpKSwgaz0gNSkKClBhbC5HZW5lLmR5bmFtaXF1ZSA8LSBkYXRhLmZyYW1lKEdlbmU9IG5hbWVzKFBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMkY2x1c3RlcmluZyksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgV2F2ZXM9IFBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMkY2x1c3RlcmluZywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gUHNldWRvdGltZS5nZW5lcy5jbHVzdGVycyRjbHVzdGVyaW5nLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHEudmFsID0gUGFsLnJlcyRwdmFsLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIEFCQ3M9IFBhbC5yZXMkQUJDcwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICkgJT4lIGFycmFuZ2UoR2VuZS5DbHVzdGVycykKCnJvdy5uYW1lcyhQYWwuR2VuZS5keW5hbWlxdWUpIDwtIFBhbC5HZW5lLmR5bmFtaXF1ZSRHZW5lClBhbC5HZW5lLmR5bmFtaXF1ZSRHZW5lLkNsdXN0ZXJzIDwtIHBhc3RlMCgiQ2x1c3QuIiwgUGFsLkdlbmUuZHluYW1pcXVlJEdlbmUuQ2x1c3RlcnMpCmBgYAoKYGBge3IgZmlnLmRpbT1jKDksIDUpfQojIE9yZGVyIHRoZSByb3dzIHVzaW5nIHNlcmlhdGlvbgpkc3QgPC0gYXMuZGlzdCgoMS1jb3Ioc2NhbGUodChQYWxfY3VydmVfbWF0cml4KSksIG1ldGhvZCA9ICJwZWFyc29uIikpKQpyb3cuc2VyIDwtIHNlcmlhdGlvbjo6c2VyaWF0ZShkc3QsIG1ldGhvZCA9IlIyRSIpICMiUjJFIiAjVFNQICMiR1ciICJHV193YXJkIgpnZW5lLm9yZGVyIDwtIHJvd25hbWVzKFBhbF9jdXJ2ZV9tYXRyaXhbZ2V0X29yZGVyKHJvdy5zZXIpLF0pCgojIFNldCBhbm5vdGF0aW9uIGNvbG9ycwpwYWwgPC0gd2VzX3BhbGV0dGUoIkRhcmplZWxpbmcxIikKYW5uby5jb2xvcnMgPC0gbGlzdChsaW5lYWdlID0gYyhQYWxsaWFsX25ldXJvbnM9IiMwMjZjOWEiLCBDYWphbF9SZXR6aXVzPSIjY2MzOTFiIiksCiAgICAgICAgICAgICAgICAgICAgR2VuZS5DbHVzdGVycyA9IGMoQ2x1c3QuMSA9cGFsWzFdICwgQ2x1c3QuMj1wYWxbMl0sIENsdXN0LjM9cGFsWzNdLCBDbHVzdC40PXBhbFs0XSwgQ2x1c3QuNT1wYWxbNV0pKQoKCnBoZWF0bWFwOjpwaGVhdG1hcChEaWZmLmN1cnZlX21hdHJpeFtnZW5lLm9yZGVyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGMoMzAwOjEsI1BhbAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMzAxOjYwMCldLCAjQ1IKICAgICAgICAgICAgICAgICAgIHNjYWxlID0gInJvdyIsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9jb2xzID0gRiwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fcm93ID0gUGFsLkdlbmUuZHluYW1pcXVlICU+JSBkcGx5cjo6c2VsZWN0KEdlbmUuQ2x1c3RlcnMpLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2wgPSBkYXRhLmZyYW1lKGxpbmVhZ2UgPSByZXAoYygiUGFsbGlhbF9uZXVyb25zIiwiQ2FqYWxfUmV0eml1cyIpLCBlYWNoPTMwMCkpLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2xvcnMgPSBhbm5vLmNvbG9ycywKICAgICAgICAgICAgICAgICAgIHNob3dfY29sbmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgc2hvd19yb3duYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBmb250c2l6ZV9yb3cgPSA4LAogICAgICAgICAgICAgICAgICAgY29sb3IgPSAgdmlyaWRpczo6dmlyaWRpcyg5KSwKICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHNlcSgtMi41LDIuNSwgbGVuZ3RoLm91dCA9IDkpLAogICAgICAgICAgICAgICAgICAgbWFpbiA9ICIiKQpgYGAKCldlIG1hbnVhbGx5IGNvcnJlY3QgdGhlIHJlb3JkZXJpbmcgc28gZ2VuZXMgYXJlIGFsaWduZWQgZnJvbSB0b3AgcmlnaHQgdG8gYm90dG9tIGxlZnQKCmBgYHtyIGZpZy5kaW09Yyg5LCA1KX0KcGhlYXRtYXA6OnBoZWF0bWFwKERpZmYuY3VydmVfbWF0cml4W2dlbmUub3JkZXIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYygzMDA6MSwjUGFsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAzMDE6NjAwKV0sICNDUgogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBQYWwuR2VuZS5keW5hbWlxdWUgJT4lIGRwbHlyOjpzZWxlY3QoR2VuZS5DbHVzdGVycyksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbCA9IGRhdGEuZnJhbWUobGluZWFnZSA9IHJlcChjKCJQYWxsaWFsX25ldXJvbnMiLCJDYWphbF9SZXR6aXVzIiksIGVhY2g9MzAwKSksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbG9ycyA9IGFubm8uY29sb3JzLAogICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBzaG93X3Jvd25hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDgsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDkpLAogICAgICAgICAgICAgICAgICAgYnJlYWtzID0gc2VxKC0yLjUsMi41LCBsZW5ndGgub3V0ID0gOSksCiAgICAgICAgICAgICAgICAgICBtYWluID0gIiIpCmBgYAoKYGBge3IgZmlnLmRpbT1jKDksIDUpfQphbm5vLmNvbG9ycyA8LSBsaXN0KENlbGwuc3RhdGUgPSBjKEN5Y2xpbmdfUkc9IiMwNDZjOWEiLCBEaWZmZXJlbnRpYXRpbmdfY2VsbHM9IiNlYmNiMmUiKSwKICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gYyhDbHVzdC4xID1wYWxbMV0gLCBDbHVzdC4yPXBhbFsyXSwgQ2x1c3QuMz1wYWxbM10sIENsdXN0LjQ9cGFsWzRdLCBDbHVzdC41PXBhbFs1XSkpCgpjb2wuYW5ubyA8LSBkYXRhLmZyYW1lKENlbGwuc3RhdGUgPSByZXAoYygiRGlmZmVyZW50aWF0aW5nX2NlbGxzIiwiQ3ljbGluZ19SRyIpLCBjKDIwMCwxMDApKSkKcm93bmFtZXMoY29sLmFubm8pIDwtIDMwMDoxCgpwaGVhdG1hcDo6cGhlYXRtYXAoUGFsX2N1cnZlX21hdHJpeFtnZW5lLm9yZGVyLDMwMDoxXSwKICAgICAgICAgICAgICAgICAgIHNjYWxlID0gInJvdyIsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9jb2xzID0gRiwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fcm93ID0gUGFsLkdlbmUuZHluYW1pcXVlICU+JSBkcGx5cjo6c2VsZWN0KEdlbmUuQ2x1c3RlcnMpLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2wgPSBjb2wuYW5ubywKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICBnYXBzX2NvbCA9IDIwMCwKICAgICAgICAgICAgICAgICAgIHNob3dfY29sbmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgc2hvd19yb3duYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBmb250c2l6ZV9yb3cgPSA4LAogICAgICAgICAgICAgICAgICAgY29sb3IgPSAgdmlyaWRpczo6dmlyaWRpcyg5KSwKICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHNlcSgtMi41LDIuNSwgbGVuZ3RoLm91dCA9IDkpLAogICAgICAgICAgICAgICAgICAgbWFpbiA9ICIiKQoKYGBgCgojIyMgR2VuZSBjbHVzdGVyIHRyZW5kCgpgYGB7ciBmaWcuZGltPWMoOSw2KSwgY2FjaGU9VFJVRX0KUGxvdC5jbHVzdC50cmVuZHMoTmV1cm8udHJhamVjdG9yaWVzLAogICAgICAgICAgICAgICAgICAgTGluZWFnZSA9ICJQYWxsaWFsX25ldXJvbnMiLAogICAgICAgICAgICAgICAgICAgV2hpY2guY2x1c3RlciA9IDE6NSwKICAgICAgICAgICAgICAgICAgIGNsdXN0Lmxpc3QgPSBQc2V1ZG90aW1lLmdlbmVzLmNsdXN0ZXJzJGNsdXN0ZXJpbmcsCiAgICAgICAgICAgICAgICAgICBTbW9vdGgubWV0aG9kID0gImdhbSIpCmBgYAoKYGBge3J9ClBhbC5nb3N0cmVzIDwtIGdvc3QocXVlcnkgPSBhcy5jaGFyYWN0ZXIoUGFsLkdlbmUuZHluYW1pcXVlJEdlbmUpLAogICAgICAgICAgICAgICAgb3JnYW5pc20gPSAibW11c2N1bHVzIiwgb3JkZXJlZF9xdWVyeSA9IEYsIAogICAgICAgICAgICAgICAgbXVsdGlfcXVlcnkgPSBGLCBzaWduaWZpY2FudCA9IFQsIGV4Y2x1ZGVfaWVhID0gVCwgCiAgICAgICAgICAgICAgICBtZWFzdXJlX3VuZGVycmVwcmVzZW50YXRpb24gPSBGLCBldmNvZGVzID0gVCwgCiAgICAgICAgICAgICAgICB1c2VyX3RocmVzaG9sZCA9IDAuMDUsIGNvcnJlY3Rpb25fbWV0aG9kID0gImZkciIsIAogICAgICAgICAgICAgICAgZG9tYWluX3Njb3BlID0gImFubm90YXRlZCIsIGN1c3RvbV9iZyA9IE5VTEwsIAogICAgICAgICAgICAgICAgbnVtZXJpY19ucyA9ICIiLCBzb3VyY2VzID0gYygiR086TUYiLCAiR086QlAiKSwgYXNfc2hvcnRfbGluayA9IEYpCgp3cml0ZS50YWJsZShhcHBseShQYWwuZ29zdHJlcyRyZXN1bHQsIDIsIGFzLmNoYXJhY3RlciksCiAgICAgICAgICAgICJLT19QYWwuZ29zdHJlcy5jc3YiLCBzZXAgPSAiOyIsIHF1b3RlID0gRiwgcm93Lm5hbWVzID0gRikKYGBgCgoKYGBge3J9CkROQV9kYW1hZ2VfR090ZXJtIDwtIFBhbC5nb3N0cmVzJHJlc3VsdFtQYWwuZ29zdHJlcyRyZXN1bHQkdGVybV9pZCAlaW4lIGMoIkdPOjAwMDg2MzAiLCAiR086MDAzMDMzMCIsICJHTzowMDMxNTcxIiwgIkdPOjAwMDY5NzQiLCAiR086MDAwNjk3NyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJHTzowMDQ0NzczIiwgIkdPOjAwNDI3NzEiLCAiR086MDA0Mjc3MCIsICJHTzoyMDAxMDIxIiwgIkdPOjE5MDIyMjkiKSxdCgpETkFfZGFtYWdlX0dPdGVybVssYygxLDIsMyw1LDYsNywxMSldCmBgYAoKCiMgU2Vzc2lvbiBJbmZvCgpgYGB7cn0KI2RhdGUKZm9ybWF0KFN5cy50aW1lKCksICIlZCAlQiwgJVksICVILCVNIikKCiNQYWNrYWdlcyB1c2VkCnNlc3Npb25JbmZvKCkKYGBg